7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
落伍者 2003-03-27
- 打赏
- 举报
FSO 或
FileLen 函数。
要不就用api
先
CreateFIle
GetFileSize
ClientDC 2003-03-27
- 打赏
- 举报
FileLen函数
sosolong 2003-03-27
- 打赏
- 举报
strOpenFileName = frmMDI.CMDialog.Filename
' 如果文件大于 65K，则不能打开文件，取消操作。
' If FileLen(strOpenFileName) > 65000 Then
' MsgBox "文件太大，无法打开。"
' Exit Function
' End If
' 如果文件大于 65K，则不能打开文件，取消操作。
' If FileLen(strOpenFileName) > 65000 Then
' MsgBox "文件太大，无法打开。"
' Exit Function
' End If
nik_Amis 2003-02-22
- 打赏
- 举报
vba.filelen(filename)
northwolves 2003-02-22
- 打赏
- 举报
Private Sub Command1_Click()
Dim fso As New FileSystemObject, f As File
Set f = fso.GetFile("c:\temp.txt")
MsgBox f.Size & " byte"
End Sub
Dim fso As New FileSystemObject, f As File
Set f = fso.GetFile("c:\temp.txt")
MsgBox f.Size & " byte"
End Sub
qiangchen 2003-02-22
- 打赏
- 举报
ji wen!
