I'm trying to use the following code to move txt files to an archival directory. But I get the attached error.
Dim strFolder As String
Dim fso, txtFile
strFolder = "C:\FTP\"
txtFile = Dir(strFolder & "*.txt")
While txtFile <> ""
Debug.Print strFolder & txtFile
txtFile = Dir