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

zzwwdd · 发表于 2013-2-26 10:56:07

本帖最后由 zzwwdd 于 2013-3-2 08:26 编辑

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

xms77 · 发表于 2013-2-26 19:38:13

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

xms77 · 发表于 2013-2-26 20:46:10

#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 · 发表于 2013-3-2 08:25:56

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

link369 · 发表于 2013-3-3 22:24:32

学习学习。。。。。。

		自动登录	找回密码
密码			加入

[系统综合] [已解决]能不能自动加目录

相关帖子