Snasui Excel Forum

Code: Select all

Sub FSOMoveFile()

Dim OldPath As String
    Dim NewPath As String
    Dim LoopFile As String
    Dim FileExt() As String
    OldPath = "D:\DataPayment\"
    NewPath = "D:\RunPayment\MB\"
    LoopFile = Dir(OldPath & "*.*")
    Do While LoopFile <> ""
        FileExt = Split(LoopFile, ".")
        Select Case FileExt(UBound(FileExt))
        Case "xlsx", "xls", "bmp"
            Name OldPath & LoopFile As NewPath & LoopFile
        End Select
        LoopFile = Dir
    Loop


End Sub

Code: Select all

Sub MoveFile()
    Dim OldPath As String
    Dim NewPath As String
    Dim LoopFile As String
    Dim FileExt As Variant
    Dim d As String
    
    OldPath = "D:\DataPayment\"
    LoopFile = Dir(OldPath & "*.*")
    Do While LoopFile <> ""
        If InStr(LoopFile, "$") Then
            FileExt = Split(LoopFile, "$")(0)
            FileExt = Split(FileExt, "_")(UBound(Split(FileExt, "_")))
            Select Case FileExt
                Case "rap", "jar"
                    d = "ON"
                Case "cha", "kan", "rat"
                    d = "TV"
                Case "nar", "var"
                    d = "MB"
            End Select
            NewPath = "D:\RunPayment\" & d & "\"
            Name OldPath & LoopFile As NewPath & LoopFile
        End If
        LoopFile = Dir
    Loop
End Sub