Copying a file with VB6 is pretty straightforward. However, giving feedback to the user during the copy process has historically been a challenge.
By leveraging the Windows API, we can utilize the same functions that Windows itself uses to copy files, and at the same time make use of the built in copy status dialog. Another VB6 post, by request.
Success or failure of the copy process will be returned as well, with a true/false value.
dim bSuccess as boolean
bSuccess = ShellFileCopy ("C:\MyFile.txt", "D:\MyFile.txt")
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const FO_COPY = &H2
Public Function ShellFileCopy(src As String, dest As String, _
Optional NoConfirm As Boolean = False) As Boolean
Dim WinType_SFO As SHFILEOPSTRUCT
Dim lRet As Long
Dim lflags As Long
lflags = FOF_ALLOWUNDO
If NoConfirm Then lflags = lflags & FOF_NOCONFIRMATION
.wFunc = FO_COPY
.pFrom = src
.pTo = dest
.fFlags = lflags
lRet = SHFileOperation(WinType_SFO)
ShellFileCopy = (lRet = 0)
No comments on this post yet!
You must be logged in to post a comment.