按PDF文件名称分类到对应文件夹

川黔1985 · 发表于 2017-11-28 20:23

本帖最后由川黔1985 于 2017-11-28 21:28 编辑

有类似如下命名的pdf文件5000多个：水泥路破坏.pdf
硬化道路良好.pdf
硬化道路良好01.pdf
硬化道路良好02.pdf
硬化道路良好03.pdf
硬化道路良好04.pdf
硬化道路良好05.pdf
沥青路情况一般.pdf
沥青路情况一般01.pdf
沥青路情况一般02.pdf

----------------------------------------------------
需要的分类方法：
1.新建对应文件夹：水泥路破坏，硬化道路良好，沥青路情况一般
2.把对应名称的包括所有序号的pdf文件放入对应名称的文件夹内

归档.rar (11.65 KB, 下载次数: 27)

-------------------------------------------------------------------------

希望告诉帮忙出手，万分感谢！！！！！！！！！！！！

川黔1985 · 发表于 2017-11-28 20:32

求大神出手啊，感谢感谢

川黔1985 · 发表于 2017-11-28 21:14

求告诉出手在线等万分感谢

川黔1985 · 发表于 2017-11-28 21:27

有大侠在吗？？？

闻启学 · 发表于 2017-11-28 21:31

楼主你是将文件名称放入对于的文件夹对把

川黔1985 · 发表于 2017-11-28 21:40

闻启学发表于 2017-11-28 21:31
楼主你是将文件名称放入对于的文件夹对把

把pdf文件移动到对应的文件夹里面，文件夹也需要根据不带序号的pdf文件脚本来建立

川黔1985 · 发表于 2017-11-28 21:41

闻启学发表于 2017-11-28 21:31
楼主你是将文件名称放入对于的文件夹对把

是分类pdf文件，不是名称，我题目有误，不好意思

huang1314wei · 发表于 2017-11-28 21:44

Sub test()
Dim MyPath$, myFile$, d
Set d = CreateObject("scripting.dictionary")
MyPath = ThisWorkbook.Path & "\"
On Error Resume Next
d.Add "道路良好", "": d.Add "水泥路情况良好", "": d.Add "碎石路道路破坏", ""
MkDir MyPath & "道路良好"
MkDir MyPath & "水泥路情况良好"
MkDir MyPath & "碎石路道路破坏"
myFile = Dir(MyPath & "*.pdf")
Do While myFile <> ""
For Each c In d.keys
If InStr(myFile, c) > 0 Then
Name MyPath & myFile As MyPath & c & "\" & myFile
Exit For
End If
Next
myFile = Dir
Loop
End Sub

复制代码

duquancai · 发表于 2017-11-28 21:47

本帖最后由 duquancai 于 2017-11-28 21:48 编辑

遍历，字典归类，遍历字典并建立文件夹和移动文件，OK

huang1314wei · 发表于 2017-11-28 21:48

附件参考.rar (25.75 KB, 下载次数: 49)

		自动登录	找回密码
密码			免费注册

[求助] 按PDF文件名称分类到对应文件夹