Rem : =========== 获得文件名,不包括路径部分 Rem : =========== file 必须存在 Function GetFileName( file ) If fso.fileexists(file)=False Then Err.Raise vbObjectError+128, "GetFileName", "File : " & file & " does not exist" Dim errMsg On Error Resume
vbs 代码 :GetFileName
最新推荐文章于 2022-12-27 09:43:18 发布