Set初始化变量
Sub fileW '写文件
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\2.txt", True)
MyFile.WriteLine("YES")
MyFile.Close
Set MyFile = fso.GetFile("c:\2.txt")
'MyFile.Delete
End Sub
Sub XXX 跟 End Sub 组成一个函数
Sub FolderAttributes(sourcepath)
Dim fso, objFile
Set fso = CreateObject("Scripting.FileSystemObject")
'调用GetFile()返回File对象,通过File对象来访问其下的属性
Set objFile = fso.GetFile(sourcepath)
// 我需要的东西,获取文件信息的方式~哈哈
MsgBox "文件大小:" & objFile.Size
if objfile.Size >= 100000 Then '文件大小需要准确判断请自己来定
MsgBox "YES"
fileW
Else
MsgBox "false"
End if
End Sub
sourcepath = "c:\1.txt"
Call FolderAttributes(sourcepath)
随便找了段VBS程序,分析语句On Error Resume Next //////使程序按照产生错误的语句之后的语句继续执行,具体见http://hi.baidu.com/51735/blog/item/6921bf58d5868cdb9d820467.htmlDim sourcepath Dim numb////////////