[已解决]能不能自动加目录

zzwwdd

网上用电驴下了很多文件   文件名是相似的 比如说,   美丽中国1 ,美丽中国2,美丽中国3, 但是没有文件夹,我想加个文件夹 美丽中国 ,把 美丽中国1 ,美丽中国2,美丽中国3 自动放进去,有没有什么 脚本自动完成?

xms77

现成的脚本当然没有，不过可以自己做一个，难道不是很大的

xms77

#include<file.au3>
#include<Array.au3>
Local $FileDir = "D:\downloads"
Local $arrayFiles = _FileListToArray($FileDir,"*",1)
If @error Then Exit MsgBox(16,"报告","没有找到任何文件在"&$FileDir&"路径下面!")
;_ArrayDisplay($arrayFiles)
For $i = 1 To $arrayFiles[0]
        $temp = StringRegExp($arrayFiles[$i],'([^\d]+)\d+\.\w{3}',1)   ;正则取文件名（不包括数字）
        If @error Then ContinueLoop
        If IsDeclared('~'& $temp[0]) Then
                
                FileMove($FileDir & "\" & $arrayFiles[$i],$FileDir & "\" & $temp[0] & "\" )
        Else
                Assign('~'& $temp[0],"")
                DirCreate($FileDir & "\" & $temp[0])
                FileMove($FileDir & "\" & $arrayFiles[$i],$FileDir & "\" & $temp[0] & "\" )
        EndIf
Next

回复 1# zzwwdd

zzwwdd

试过了,可以的!谢谢你了!!!!

link369

学习学习。。。。。。