Modify code to move ONLY text files from multiple folders

[joand]

The macro below will move ALL files from a specified path (with multiple subfolders) to another folder. However, how do you change this code so that it will move ONLY txt files?

Sub MoveFiles()

Dim fso, fldr, subFldr, oFiles, oFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("E:\DILPA\Compile\Compiled\")
    
    For Each subFldr In fldr.SubFolders
        Set oFiles = subFldr.Files
        
        For Each oFile In oFiles
            
        oFile.Move "I:\4xmit\4xmit 2moro\"
                
        Next
    Next
    Set oFiles = Nothing
    Set subFldr = Nothing
    Set fldr = Nothing
    Set fso = Nothing

End Sub

 

[Norie]

There might be other ways to identify the file type, eg Type, but this checks file extension.

If Left (oFile.Name, 4) = ".txt" Then
     oFile.Move "I:\4xmit\4xmit 2moro\"
 
End If

 

[joand]

It's not doing anything. Can you tell why?

Sub MoveFiles()

Dim fso, fldr, subFldr, oFiles, oFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("E:\DILPA\Compile\Compiled\")
    
    For Each subFldr In fldr.SubFolders
        Set oFiles = subFldr.Files
        
        For Each oFile In oFiles
            If Left(oFile.Name, 4) = ".txt" Then
               oFile.Move "I:\4xmit\4xmit 2moro\"
            End If
        Next
    Next
    Set oFiles = Nothing
    Set subFldr = Nothing
    Set fldr = Nothing
    Set fso = Nothing

End Sub

 

[Richard Schollar]

Hi

Should be Right (not Left):

Sub MoveFiles()

Dim fso, fldr, subFldr, oFiles, oFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("E:\DILPA\Compile\Compiled\")
    
    For Each subFldr In fldr.SubFolders
        Set oFiles = subFldr.Files
        
        For Each oFile In oFiles
            If Right(oFile.Name, 4) = ".txt" Then
               oFile.Move "I:\4xmit\4xmit 2moro\"
            End If
        Next
    Next
    Set oFiles = Nothing
    Set subFldr = Nothing
    Set fldr = Nothing
    Set fso = Nothing

End Sub

 

[Norie]

Oops, should be Right(oFile.Name, 4).

I used Name here instead of Type because though Type might return 'Text Document' for a text file that's system dependent.

So using Name you can check for the extension '.txt' which is quite common for text files, though not universal.

If the files you are interested in do have a different file extension(s) then the code will neeed to be changed.

 

[joand]

Thanks, that worked fine!