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
        $temp = StringRegExp($arrayFiles[$i],'([^\d]+)\d+\.\w{3}',1)   ;正则取文件名（不包括数字）
        If @error Then ContinueLoop
        If IsDeclared('~'& $temp) Then
               
                FileMove($FileDir & "\" & $arrayFiles[$i],$FileDir & "\" & $temp & "\" )
        Else
                Assign('~'& $temp,"")
                DirCreate($FileDir & "\" & $temp)
                FileMove($FileDir & "\" & $arrayFiles[$i],$FileDir & "\" & $temp & "\" )
        EndIf
Next回复 1# zzwwdd

zzwwdd 发表于 2013-3-2 08:25:56

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

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

学习学习。。。。。。
页: [1]
查看完整版本: [已解决]能不能自动加目录