Rem : =========== 创建文本文件Rem : =========== 不能有同名的文件或文件夹Rem : =========== 父文件夹必须存在Sub CreateTextFile( file )Dim ff = Trim( file )If Right(f,1) = "/" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = True Or fso.folderexists(f) = True Then Err.Raise vbObjectError+128, "CreateFolder", f & " already exists"If fso.folderexists(fso.GetParentFolderName(f)) = False Then Err.Raise vbObjectError+128, "CreateFolder", fso.GetParentFolderName(f) & " does not exists"Dim errMsgOn Error Resume NextRem ====== code beginfso.CreateTextFile f, falseRem ====== code endIf Err.Number <> 0 ThenerrMsg = Err.DescriptionOn Error Goto 0Err.Raise vbObjectError+128, "CreateTextFile", errMsg & vbNewLine & _" file:" & vbTab & file Exit SubEnd IfEnd Sub
