乱码

Set fso = CreateObject("Scripting.FileSystemObject")
For Each x In fso.GetFolder(".").Files '遍历本文件夹所有文件
    If LCase(fso.GetExtensionName(x.Name)) = "txt" Then '如果是txt就进行操作
        BaseName = fso.GetBaseName(x.Name) '获取文件名
        Set jpg = fso.GetFile(BaseName & ".jpg") '获取同名图片
        folderName = BaseName & " [" & Int((jpg.Size/1024/1024)*1000)/1000 & "M]" '生成文件夹名称
        If Not fso.FolderExists(folderName) Then fso.CreateFolder folderName '没有该文件夹就创建
        x.Move folderName & "\" '移动txt到同名文件夹下
        jpg.Move folderName & "\" '移动jpg到同名文件夹下
    End If
Next
MsgBox "OK"

试试看这个vbs脚本，bat我不会、