GetFile:返回一个file对象 GetFileName:返回文件夹中文件名称 GetFolder(“”):返回一个文件夹对象 GetParentFolderName:返回一个文件夹的父文件夹 GetSpecialFolder:返回指向一个特殊文件夹的对象指针 GetTempName:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称 MoveFile:移动文件 MoveFolder:移动文件夹...
上述代码中,我们首先定义了一个文件路径filePath,然后使用GetFileName函数获取文件名fileName。接下来,我们使用ReplaceText函数将文件名中的特定部分文本进行替换,将旧文本old替换为新文本new,得到新的文件名newFileName。最后,我们使用Replace函数构建新的文件路径newFilePath,将旧的文件名替换为新的文件名。最后,我们通...
sbasename=Left(sfilename, n-1)ElseGetFileExtAndBaseName=""sbasename=sfilenameEndIfEnd Function'遍历该目录及子目录.' 'Result: 目录和文件的总数.'fileOut: 输出文件,用于输出遍历结果.'fso: FileSystemObject对象.'sPath: 目录.Functiondirscan(ByReffileOut,ByValfso,ByValsPath) rt=0SetcurrentFolder =Not...
MoveFile(srcFilePath, desDirectoryPath) GetFile: 作用: 返回一个file对象 用法: GetFile(srcFilePath) GetExtensionName: 作用: 返回扩展名 用法:GetExtensionName(srcFilePath) GetFileName: 作用: 返回文件夹中文件名称 用法:GetFileName(srcFilePath) GetParentFolderName: 作用: 返回一个文件夹的父文件夹 用法...
theFile.FileName=getFileName(mFileName)theFile.FilePath=getFilePath(mFileName)theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEnter&vbEnter)iEnd=inString(iStart+4,vbEnter&strDiv)if iEnd>i...
fold(Input):Msgbox"Done! Total "&X&" file(s) were converted to lowercase.",64,"Done" sub fold(Path):SET f=fso.GetFolder(Path):Set rf = fso.GetFolder(Path).files:Set fc = f.SubFolders foR EACh fff in rf:lcf1=LCase(fso.GetAbsolutePathName(fff)) ...
bulidpath:把文件路径信息添加到现有的文件路径上 copyfile copyfolder createfolder createtextfile deletefile deletefolder dreveexits fileexits folderexists getabsolutepathname:返回一个文件夹或文件的绝对路径 getbasename:返回一个文件或文件夹的基本路径 getdrive:返回一个dreve对象 ...
set theFile=new FileInfo theFile.FileName=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEnter&vbEnter) iEnd=inString(iStart+4,vbEnter...
set theFile=new FileInfo theFile.FileName=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEnter&vbEnter) iEnd=inString(iStart+4,vbEnter...
bulidpath:把文件路径信息添加到现有的文件路径上 copyfile copyfolder createfolder createtextfile deletefile deletefolder dreveexits fileexits folderexists getabsolutepathname:返回一个文件夹或文件的绝对路径 getbasename:返回一个文件或文件夹的基本路径 getdrive:返回一个dreve对象 ...