vbs 代码 ：GetFileName

Rem :  ===========  获得文件名，不包括路径部分Rem :  ===========  file 必须存在Function GetFileName( file )If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "GetFileName", "File : " & file & " does not exist"Dim errMsgOn Error Resume Next'  ===========  code beginGetFileName = fso.GetFileName(file)'  ===========  code endIf Err.Number <> 0 ThenerrMsg = Err.DescriptionOn Error Goto 0Err.Raise vbObjectError+128, "GetFileName", errMsg & vbNewLine & _"                file:" & vbTab & fileExit functionEnd IfEnd function