CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to move all the .png files from one folder to another.
Private Sub Form_Load()
    MoveFiles "C:\test2\", "C:\test3\", "png"
End Sub
 
Private Sub MoveFiles(ByVal sSource As String, ByVal sDest As String, _
    Optional ByVal sExt As String = "*")
    Dim sFile As String
    If Not Right$(sSource, 1) = "\" Then sSource = sSource & "\"
    If Not Right$(sDest, 1) = "\" Then sDest = sDest & "\"
    sFile = Dir(sSource & "*." & sExt)
    Do While Len(sFile)
        Name sSource & sFile As sDest & sFile
        sFile = Dir
    Loop
End Sub