如何在文本文件中提取路径并在VBA中使用它？

Question

作为一个初学者，我已经与这个问题2天，我很渴望你的帮助。

我的文本文件是：

C:\Sourcefile\imported 
C:\Destination\not imported 
C:\Testexcel\test.xlxs 

，我需要阅读的文本，在VBA中使用这些路径。 vba代码的目标是创建一个新的文件夹，如果它不存在于目的地。

FSO = CreateObject("Scripting.FileSystemObject") 
set oSourceFolder=FSO.getfolder(Line1,Readline) 'if i replace line with the path it will work 
set oSourceFolder=FSO.getfolder(Line2,Readline) 
set oSourceFolder=FSO.getfolder(Line3,Readline) 

if dir("C:\Destination\not imported",16)="" Then Mkdir (":\Destination\not imported") 

在这里，我想用行替换路径，但它不工作。

你能帮助我吗？

Answer 1

必须

• 在

FSO = CreateObject("Scripting.FileSystemObject"开始）

• 使用方法对象TextStreamReadLine检索文本文件的每一行进入加Set关键字a string对象

• 解析string返回可能的文件规范并只获得他们的路径部分

• 使用FileSystemObject对象的FolderExists方法来检查现有的文件夹

• 终于搞定（如果存在的话），其文件夹或创建（如果不存在）它通过GetFolder或CreateFolder FileSystemObject对象的方法

很想如下：

---

 Option Explicit 

    Sub main() 
     Dim FSO As FileSystemObject 
     Dim foldersListFile As TextStream 
     Dim folderName As String 
     Dim oSourceFolder As Folder 

     Set FSO = CreateObject("Scripting.FileSystemObject") 

     Set foldersListFile = FSO.OpenTextFile("C:\myPath\folders.txt", ForReading, TristateFalse) 

     Do While Not foldersListFile.AtEndOfStream 
      folderName = GetFolderStringOnly(foldersListFile.ReadLine) 

      If FSO.FolderExists(folderName) Then 
       Set oSourceFolder = FSO.GetFolder(folderName) 
      Else 
       Set oSourceFolder = FSO.CreateFolder(folderName) 
      End If 
      Loop 

     foldersListFile.Close 

    End Sub 

    Function GetFolderStringOnly(textLine As String) As String 
     Dim iDot As Long, iSlash As Long 
     iDot = InStrRev(textLine, ".") 
     If iDot > 0 Then 
      iSlash = InStrRev(Left(textLine, iDot), "\") 
      textLine = Left(textLine, iSlash - 1) 
     End If 
     GetFolderStringOnly = textLine 
    End Function