一段使用VBScript整理文件的代码

 我觉得写点VBS有时候挺方便的。

 

Option ExplicitDim objFSO,srcRoot,objFolder,File,dstRoot,theName,dst,dstFileSet objFSO=CreateObject("Scripting.FileSystemObject")srcRoot="G:/testS"dstRoot="G:/testD"Set objFolder=objFSO.GetFolder(srcRoot)For Each File In objFolder.FilesIf objFSO.GetExtensionName(File) = "pdf" Then theName= Left(File.Name,4) dst=dstRoot & "/" & theName dstFile=dst & "/" & File.Name If Not objFSO.FolderExists(dst) Then objFSO.CreateFolder(dst) End If objFSO.MoveFile File, dstFileEnd IfNext