我给你写个autoit脚本吧
#include
$dir = FileSelectFolder("请选择电影文件所在文件夹", "")
If $dir = "" Then Exit
$file = _FileListToArray($dir, "*", 1)
ProgressOn("正在移动,请稍后...", "共需处理:" & $file[0] & "个文件","文件正在移动请耐性等待...")
For $i = 1 To $file[0]
$p = StringInStr($file[$i], ".", 0, -1)
$folder = StringLeft($file[$i], $p-1)
FileMove($dir & "\" & $file[$i], $dir & "\" & $folder & "\" & $file[$i], 9)
ProgressSet($i/$file[0]*100, $i & "/" & $file[0])
Next
ProgressSet(100, $i & "/" & $file[0], "完成")
ToolTip("谢谢使用!" & @CRLF & "write by veket_linux", @DesktopWidth/2, @DesktopHeight/2)
Sleep(3000)
这个是木有问题的!