☰

创建文件夹并将相应文件移入其中

tag-icon • tag-icon windows cmd.exe
创建文件夹并将相应文件移入其中

我的文件夹中有大约 100 个 pdf 文件，其名称结构如下：

  • 信用报告 - Google 公司
  • 信用报告 - BP Plc
  • 信用报告 - 苹果公司
  • 信用报告 - Saipem spa

等等等等。

是否有一个命令可以帮助我创建新文件夹，其名称如下：

  • 谷歌公司
  • 英国石油公司

并移动相应的 pdf

  • 信用报告 - Google 公司
  • 信用报告 - BP Plc

进入他们。

谢谢

（PS：我是第一次使用论坛，对论坛上的文本格式有些困惑，所以如果格式有什么奇怪的，请大家多多包涵）

答案1

移动到文件夹.VBS

FolderSpec="c:\tmp"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(FolderSpec)
For Each OneFile In SourceFolder.Files
    If LCase(Right(OneFile.Name, 4)) = ".pdf" and Instr(OneFile.Name, "-") > 0 Then
        FSO.CreateFolder FolderSpec & "\" & Trim(Split(Split(OneFile.Name, "-")(1), ".")(0))
        OneFile.Move FolderSpec & "\" & Trim(Split(Split(OneFile.Name, "-")(1), ".")(0)) & "\" & OneFile.Name
    end if
Next

编辑"c:\tmp"，设置您的源文件夹。

仅移动名称中带有“.PDF”扩展名且带有破折号的文件。如果有多个破折号，则仅使用第一个和第二个破折号之间的部分。

如果发生任何错误（文件夹存在、文件存在等），脚本将失败。如果您想忽略错误，请On Error Resume Next在第一行之前添加行。

相关内容