Použití dialogového okna Kopírovat z Exploreru

Následující příklad ilustruje zálohu dokumentů a VB programů do záložního adresáře:

Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
   .hwnd = 0
   .wFunc = FO_COPY
   .pFrom = "C:\Program Files\DevStudio\VB\My Programs" & _
      vbNullChar & "C:\My Documents" & vbNullChar & vbNullChar
   .pTo = "c:\Backup of Documents" & vbNullChar & vbNullChar
   .lpszProgressTitle = "Prosím čekejte, probíhá záloha ..."
   .fFlags = FOF_SIMPLEPROGRESS Or FOF_RENAMEONCOLLISION
End With

lret = SHFileOp(fileop)

If result <> 0 Then 'Operace spadla
   MsgBox Err.LastDllError
Else
   If fileop.fAnyOperationsAborted <> 0 Then
      MsgBox "Operace neproběhla v pořádku."
   End If
End If

Pro odeslání tohoto adresáře do koše, pokud je již příliš starý:

Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
   .hwnd = 0
   .wFunc = FO_DELETE
   .pFrom = "c:\Backup of Documents" & vbNullChar & vbNullChar
   .lpszProgressTitle = "Prosím čekejte, probíhá záloha ..."
   .fFlags = FOF_SIMPLEPROGRESS Or FOF_ALLOWUNDO
End With

lret = SHFileOp(fileop)

If result <> 0 Then
   MsgBox Err.LastDllError
Else
   If fileop.fAnyOperationsAborted <> 0 Then
      MsgBox "Oprace neproběhla v pořádku."
   End If
End If

Zpět

Autor: The Bozena