我觉得写点VBS有时候挺方便的。 Option Explicit Dim objFSO,srcRoot,objFolder,File,dstRoot,theName,dst,dstFile Set objFSO=CreateObject("Scripting.FileSystemObject") srcRoot="G:/testS" dstRoot="G:/testD" Set objFolder=objFSO.GetFolder(srcRoot) For Each File In objFolder.Files If 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, dstFile End If Next