一段使用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” ThentheName= Left(File.Name,4)dst=dstRoot & “/” & theNamedstFile=dst & “/” & File.NameIf Not objFSO.FolderExists(dst) Then objFSO.CreateFolder(dst)End IfobjFSO.MoveFile File, dstFileEnd IfNext