常用的文件操作函数
Private Sub Form_Click()
Dim mypath
mypath = CurDir
Print mypath
mypath = CurDir("C")
Print mypath
Dim strtime
strtime = FileDateTime("D:\百川教育")
Print strtime
Dim strlen
strlen = FileLen("D:\百川教育\百川考试软件\zip.dll")
Print strlen
End Sub
打开文件
Open "D:\百川教育\百川考试软件\zip.dll" For Input As #