7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lihonggen0 2003-09-10
- 打赏
- 举报
Private Sub Command1_Click()
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub
lihonggen0 2003-09-10
- 打赏
- 举报
Private Sub Command1_Click()
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub
