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

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