Rem : =========== 获得文件名,不包括路径部分 Rem : =========== file 必须存在 Function GetFileName( file ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+1, "GetFileName", "File : " & file & " does not exist" Exit Function End If GetFileName = fso.GetFileName(file) End Function