Snasui Excel Forum

Code: Select all

Sub CopyAllFileInfolder()
    Dim FileSystem As Object
    Dim HostFolder As String

    HostFolder = Sheets("Cdir").Range("B3").Value
    
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    DoFolder FileSystem.GetFolder(HostFolder)
End Sub

Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        DoFolder SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        'MsgBox File
        FileCopy File, "C:\Users\Pitheerap\Desktop\Upload SQL\Folder1\" & VBA.Split(File, "\")(UBound(VBA.Split(File, "\")))
    Next
End Sub

Code: Select all

'Other code
For Each File In Folder.Files
    'MsgBox File
    If InStr(File, "\CRR") Then
        FileCopy File, "C:\Users\Pitheerap\Desktop\Upload SQL\Folder1\" & VBA.Split(File, "\")(UBound(VBA.Split(File, "\")))
    End If
Next
'Other code