批量移动文件到相似名文件夹下的指定子文件夹

[m0_46067761]

遇到了需要把文件按文件名移动到对应文件下的指定子文件夹里。 例如123456J123F0001 123456J123F0002 123456J111F0001 123455J123F0001 123455J124F0001 对应移动到 123456J123文件夹下123456J123F0001 123456J123F0002里面 123456J111文件夹下123456J111F0001里面 123455J123文件夹下123455J123F0001里面 123455J124文件夹下123455J124F0001里面

[m0_46067761]

引用 1 楼 humanmagic的回复:

文件结构发来看看

文件结构？是文件类型吗？ dwg文件

[我叫小超超]

用filecopyas

[我叫小超超]

1遍历需分类的文件名2用if和like➕通配符筛选3filecopyas 进行分类

[m0_46067761]

引用 4 楼 weixin_46046372的回复:

1遍历需分类的文件名2用if和like➕通配符筛选3filecopyas 进行分类

小白一枚，听的懂大概意思，就是不会

[humanmagic]

文件结构发来看看

[milaoshu1020]

写好了,代码如下:

Set fso = createobject("scripting.filesystemobject")
curdir = fso.getparentfoldername(wscript.scriptfullname)

Set objfolder = fso.getfolder(curdir)

For Each objfile In objfolder.files
	If objfile.path <> wscript.scriptfullname Then
		dirname1 = Left(objfile.name,10)
		dirname2 = objfile.name
		
		dir1 = fso.buildpath(curdir,dirname1)
		dir2 = fso.buildpath(dir1,dirname2)

		If Not fso.folderexists(dir1) Then
			fso.createfolder dir1
		End If
		
		If Not fso.folderexists(dir2) Then
			fso.createfolder dir2
		End If
		
		objfile.copy fso.buildpath(dir2,objfile.name)
	End If
Next

msgbox "done!"

下载地址:
链接：https://pan.baidu.com/s/1zn5hWHo7czS-8lo2V0lmlg
提取码：rrpz

运行示例:

[m0_46067761]

引用 6 楼 milaoshu1020的回复:

写好了,代码如下:

Set fso = createobject("scripting.filesystemobject")
curdir = fso.getparentfoldername(wscript.scriptfullname)

Set objfolder = fso.getfolder(curdir)

For Each objfile In objfolder.files
	If objfile.path <> wscript.scriptfullname Then
		dirname1 = Left(objfile.name,10)
		dirname2 = objfile.name
		
		dir1 = fso.buildpath(curdir,dirname1)
		dir2 = fso.buildpath(dir1,dirname2)

		If Not fso.folderexists(dir1) Then
			fso.createfolder dir1
		End If
		
		If Not fso.folderexists(dir2) Then
			fso.createfolder dir2
		End If
		
		objfile.copy fso.buildpath(dir2,objfile.name)
	End If
Next

msgbox "done!"

下载地址:
链接：https://pan.baidu.com/s/1zn5hWHo7czS-8lo2V0lmlg
提取码：rrpz

运行示例:

谢谢大佬，明天去公司试下，成功了能省好多时间