Copying multiple files from one directory to another

[LiquidRezin]

can someone please tell me how to copy all contents of one directory to another, then delete the contents of the original directory? here's what i basically want in dos commands...

copy *.* c:\somedir
delete *.*

thanks

Pete

Use the FileSystemObject.

Dim FSO As Object

Private Sub Command1_Click()

     Set FSO = CreateObject("Scripting.FileSystemObject")
     FSO.MoveFolder "C:\somedir\", "C:\someotherdir\"

End Sub

You could also use the SHFileOperation API function to move a folder to another folder.

Private Type SHFILEOPSTRUCT
   hWnd        As Long
   wFunc       As Long
   pFrom       As String
   pTo         As String
   fFlags      As Integer
   fAborted    As Boolean
   hNameMaps   As Long
   sProgress   As String
 End Type
  
Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4

Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SIMPLEPROGRESS = & H100 
Private Const FOF_ALLOWUNDO = &H40


Private Declare Function SHFileOperation _
    Lib "shell32.dll" Alias "SHFileOperationA" _
    (lpFileOp As SHFILEOPSTRUCT) As Long


Private Sub Command1_Click()
Dim SHF As SHFILEOPSTRUCT
Dim lret As Long

SHF.wFunc = FO_MOVE
SHF.hWnd = Me.hWnd
SHF.pFrom = "C:\somedir\*.*"
SHF.pTo = "C:\someotherdir\"
SHF.fFlags = FOF_SILENT

lret = SHFileOperation(SHF)

'Returns 0 if successful

If lret <> 0 Then
    MsgBox "Error"
End If
End Sub

[HeSaidJoe]

Private Sub Form_Load()
'Using FSO copy the contents of a floppy to a folder on a different drive
'copies files and folders seperately as they use different vehicles
'
Dim FSO As Object
On Error GoTo NOFSO
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

'make sure the directory exists and if not create it
If Dir("C:\AAA", vbDirectory) = "" Then
    MkDir ("C:\AAA")
 Else
End If

FSO.CopyFile "c:\AABBCC\*", "C:\AAA\", True
FSO.CopyFolder "c:\AABBCC\*", "C:\AAA\", True

'Using fso to delete a directory
FSO.DeleteFolder "c:\AABBCC"

Set FSO = Nothing
Exit Sub
NOFSO:
MsgBox "FSO CreateObject Failed"
End Sub

[LiquidRezin]

Originally posted by HeSaidJoe

Private Sub Form_Load()
'Using FSO copy the contents of a floppy to a folder on a different drive
'copies files and folders seperately as they use different vehicles
'
Dim FSO As Object
On Error GoTo NOFSO
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

'make sure the directory exists and if not create it
If Dir("C:\AAA", vbDirectory) = "" Then
    MkDir ("C:\AAA")
 Else
End If

FSO.CopyFile "c:\AABBCC\*", "C:\AAA\", True
FSO.CopyFolder "c:\AABBCC\*", "C:\AAA\", True

'Using fso to delete a directory
FSO.DeleteFolder "c:\AABBCC"

Set FSO = Nothing
Exit Sub
NOFSO:
MsgBox "FSO CreateObject Failed"
End Sub

great, thanks guys for the code, however i dont want to delete the directory im moving the files from, just the files inside the directory...how can i do this?

Pete

[LiquidRezin]

hehe it's too early in the morning, i forgot about the kill function for my post above but thanks guys for the posts, they helped tremendously

Pete