将不同的文件路径列表拆分为所有文件夹和文件名

时间:2017-09-13 14:52:14

标签: excel vba

我有几百个不同文件夹的文本文件路径列表。

e.g。 C:/user/folder/subfolder/filename.docx

我需要将它们分成文件名和文件夹。我过去通过使用excel函数"查找"," LEN"," RIGHT"但是这只有在所有路径具有相同数量的文件夹时才有效。目前不是这种情况。

我如何在VBA中完成此操作?我的VBA知识很少但是这是一个如此常见的任务,那里应该有一个脚本可以完成这个任务吗?

我搜索过网络,但很难找到完成此操作的脚本。

任何帮助都会非常感激。

谢谢!

1 个答案:

答案 0 :(得分:3)

如果您想要VBA方法,可以使用以下内容:

   Dim fso As FileSystemObject
   Dim path As String
   Dim folder As String
   Dim file As String

   path = "C:/user/folder/subfolder/filename.docx"
   Set fso = New FileSystemObject
   folder = fso.GetParentFolderName(path)
   file = fso.GetFileName(path)