Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(g_strSendFile) Then
Set TempFile = FSO.GetFile(g_strSendFile)
End If
其中g_strSendFile是文件的完整路径(D:\Test\test.mid)....
...全文
449打赏收藏
为什么GetFile没有响应啊?
Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(g_strSendFile) Then Set TempFile = FSO.GetFile(g_strSendFile) End If 其中g_strSendFile是文件的完整路径(D:\Test\test.mid)....
Function ShowFileSize(filespec)
Dim fso, f, s
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。"
ShowFileSize = s
End Function
Function ShowFileSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。"
ShowFolderSize = s
End Function