如何使用 VBA 打开文本文件并将它们移动到文件夹？

Question

我需要一个项目的帮助，我必须打开一个文本文件列表，在它们的内容中找到一个模式，然后根据该模式移动到其他文件夹。

例如，在一个文本文件列表中，我必须找出其中哪些文件中写有 "blue" 字样，并且只将这些文件移动到另一个名为 "Blue".[=11= 的文件夹中]

我试图使用命令 FileSystemObject 来完成它，但我有点迷路了。

提前致谢！！

Answer 1

Dim sDir As String
Dim sPath As String
Dim sPattern as String
Dim sReadedData as String
dim sDestiny as string
dim sPathDestiny as string
Dim fso As Object

Set fso = VBA.CreateObject("Scripting.FileSystemObject")

sPath$ = "c:\YourFolder"
sDir$ = Dir(sPath, vbDirectory)
sPattern= "abcdefg"
sDestiny="c:\DestinyFolder"

If sDir = "" Then
MsgBox "Path " & sDir & " Not Found"
End
End If
sDir$ = Dir(sPath & "\*.txt")
Do Until sDir = ""
     sPathDestiny=Replace(sDir, sPath, sDestiny)
     Open sDir$ For Input As #1
     do until EOF(1)   
         Input #1, sReadedData
     loop
     if InStr(sReadedData, sPattern)>0 then
         Call fso.CopyFile(sDir, sPathDestiny)
     end if
Loop

这是主要思想。一起玩吧。

如何使用 VBA 打开文本文件并将它们移动到文件夹？

How to open text files and move them to a folder using VBA?

excel

vba

text-files

movefileex