Move Directory

[joltremari]

I have a couple of questions. I have a form that I need to MOVE files from one directory to another. I know how to move single files, the code I have now is:

Private Sub Command1_Click()
Dim FileSystemObject As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
FileSystemObject.MoveFile "o:\GIS\Unmappped\259G.dwg", "d:\NewWorkOrder\259G.dwg"
End Sub

However I will not know the names of the files to be moved, so I need to move the contents of the directory to the other diretory. I can't copy because the o:\ directory has to be emptied.

Also I have the code in a Command button for this example but I need to know how to make this run "unseen"

Thanks for any help,

JO

Private Sub Command1_Click()
      Dim FSO as Object
      Set FSO = CreateObject("Scripting.FileSystemObject")
      FSO.MoveFolder "o:\GIS\Unmappped\", _
      "d:\NewWorkOrder\" 
End Sub

Don't know how to make it hidden with FSO, but you can use API...

Public 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
  
Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4

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


Public 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_COPY
     SHF.hWnd = Me.hWnd
     SHF.pFrom = ""o:\GIS\Unmappped\*.*"
     SHF.pTo = "d:\NewWorkOrder\"
     SHF.fFlags = FOF_SILENT

     lret = SHFileOperation(SHF)

     'Returns 0 if successful

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