Search Tools Links Login

Copy Files Using Copy Progress Dialog

Copy a file the using SHFileOperation API call so that Windows copy progress dialog appears...

Original Author: Munim.VIP

API Declarations

'// Please Vote 4 Me, If You Like This Code...
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40


Public Sub CopyFileWindowsWay(SourceFile As String, DestinationFile As String)
   Dim lngReturn As Long
   Dim typFileOperation As SHFILEOPSTRUCT
   With typFileOperation
    .hWnd = 0
    .wFunc = FO_COPY
    .pFrom = SourceFile & vbNullChar & vbNullChar 'source file
    .pTo = DestinationFile & vbNullChar & vbNullChar 'destination file
    .fFlags = FOF_ALLOWUNDO
   End With
   lngReturn = SHFileOperation(typFileOperation)
   If lngReturn <> 0 Then 'Operation failed
     MsgBox Err.LastDllError, vbCritical Or vbOKOnly
   Else 'Aborted
     If typFileOperation.fAnyOperationsAborted = True Then
        MsgBox "Operation Failed", vbCritical Or vbOKOnly
     End If
   End If
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 81 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.