• Home
 · 
• Windows System Services
 · 
• USE WINDOWS API TO COPY, MOVE OR DELETE FILES/FOLDERS FROM COMPUTER AS EXACTLY WINDOWS DO.

USE WINDOWS API TO COPY, MOVE OR DELETE FILES/FOLDERS FROM COMPUTER AS EXACTLY WINDOWS DO.

USE WINDOWS API TO COPY, MOVE OR DELETE FILES/FOLDERS FROM COMPUTER AS EXACTLY WINDOWS DO.

API Declarations


Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_MOVE As Long = &H1
Public Const FO_RENAME As Long = &H4

Public Const FOF_ALLOWUNDO As Long = &H40
Public Const FOF_CONFIRMMOUSE As Long = &H2
Public Const FOF_FILESONLY As Long = &H80
Public Const FOF_MULTIDESTFILES As Long = &H1
Public Const FOF_NO_CONNECTED_ELEMENTS As Long = &H2000
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_NOCONFIRMMKDIR As Long = &H200
Public Const FOF_NOCOPYSECURITYATTRIBS As Long = &H800
Public Const FOF_NOERRORUI As Long = &H400
Public Const FOF_NORECURSION As Long = &H1000
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_SILENT As Long = &H4
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_WANTMAPPINGHANDLE As Long = &H20
Public Const FOF_WANTNUKEWARNING As Long = &H4000

Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Long
hNameMaps As Long
sProgress As String
End Type


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




Rate USE WINDOWS API TO COPY, MOVE OR DELETE FILES/FOLDERS FROM COMPUTER AS EXACTLY WINDOWS DO.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'If possible, it is recommended to paste all the below code to a module

'NOTE:
'Tested in Windows XP SP 2...

'Errors, feedbacks, comments, likes, dislikes, etc...
'To Email: [email protected]

Public Function PathExist(sPath As String, Optional bDir As Boolean = False, Optional lOUT_Error As Long = 0, Optional bShowError As Boolean = True) As Boolean

On Error GoTo errPE
    PathExist = False

    If Trim$(sPath) = "" Then Exit Function

    PathExist = IIf(Len(Dir(sPath, IIf(bDir, vbDirectory, vbNormal))) > 0, True, False)

    Exit Function
errPE:
    PathExist = False
    lOUT_Error = Err.Number

    If bShowError Then
        MsgBox "Error: " & Error, vbCritical, "Error " & Err
    End If

    Err.Clear
End Function

Public Function Copy(hWind As Long, sSource As String, sTarget As String, Optional bConfirmOverwrite As Boolean = False, Optional bShowProgress As Boolean = True, Optional lOUT_Abort As Long = 0, Optional lOUT_Error As Long = 0) As Long

On Error GoTo errCopy
    Dim SHFO As SHFILEOPSTRUCT

    With SHFO
        .hWnd = hWind

        If bConfirmOverwrite And bShowProgress Then
            .fFlags = FOF_NOCONFIRMATION Or FOF_SIMPLEPROGRESS
        ElseIf bConfirmOverwrite And Not bShowProgress Then
            .fFlags = FOF_NOCONFIRMATION
        ElseIf Not bConfirmOverwrite And bShowProgress Then
            .fFlags = FOF_SIMPLEPROGRESS
        Else
            .fFlags = FOF_SILENT
        End If

        .pFrom = sSource
        .pTo = sTarget

        .wFunc = FO_COPY
    End With

    Copy = SHFileOperation(SHFO)

    lOUT_Abort = SHFO.fAborted
    lOUT_Error = 0

    Exit Function
errCopy:
    lOUT_Abort = 1
    lOUT_Error = Err.Number

    Err.Clear

    Copy = 0
End Function

Public Function Move(hWind As Long, sSource As String, sTarget As String, Optional bConfirmOverwrite As Boolean = False, Optional bShowProgress As Boolean = True, Optional lOUT_Abort As Long = 0, Optional lOUT_Error As Long = 0) As Long

On Error GoTo errMove
    Dim SHFO As SHFILEOPSTRUCT

    With SHFO
        .hWnd = hWind

        If bConfirmOverwrite And bShowProgress Then
            .fFlags = FOF_NOCONFIRMATION Or FOF_SIMPLEPROGRESS
        ElseIf bConfirmOverwrite And Not bShowProgress Then
            .fFlags = FOF_NOCONFIRMATION
        ElseIf Not bConfirmOverwrite And bShowProgress Then
            .fFlags = FOF_SIMPLEPROGRESS
        Else
            .fFlags = FOF_SILENT
        End If

        .pFrom = sSource
        .pTo = sTarget

        .wFunc = FO_MOVE
    End With

    Move = SHFileOperation(SHFO)

    lOUT_Abort = SHFO.fAborted
    lOUT_Error = 0

    Exit Function
errCopy:
    lOUT_Abort = 1
    lOUT_Error = Err.Number

    Err.Clear

    Move = 0
End Function

Public Function Delete(hWind As Long, sSource As String, Optional bToRecycleBin As Boolean = True, Optional bConfirm As Boolean = True, Optional bShowProgress As Boolean = True, Optional lOUT_Abort As Long = 0, Optional lOUT_Error As Long = 0) As Long

On Error GoTo errDelete

    Dim SHFO As SHFILEOPSTRUCT

    With SHFO
        .hWnd = hWind

        If bToRecycleBin And bShowProgress And bConfirm Then
            .fFlags = FOF_ALLOWUNDO Or FOF_SIMPLEPROGRESS
        ElseIf bToRecycleBin And bShowProgress And Not bConfirm Then
            .fFlags = FOF_ALLOWUNDO Or FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION
        ElseIf bToRecycleBin And Not bShowProgress And bConfirm Then
            .fFlags = FOF_ALLOWUNDO
        ElseIf bToRecycleBin And Not bShowProgress And Not bConfirm Then
            .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
        ElseIf Not bToRecycleBin And bShowProgress And bConfirm Then
            .fFlags = FOF_SIMPLEPROGRESS
        ElseIf Not bToRecycleBin And bShowProgress And Not bConfirm Then
            .fFlags = FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION
        ElseIf Not bToRecycleBin And Not bShowProgress And bConfirm Then
            .fFlags = FOF_SILENT
        ElseIf Not (bToRecycleBin Or bShowProgress Or bConfirm) Then
            .fFlags = FOF_NOCONFIRMATION
        Else
            .fFlags = FOF_SILENT
        End If

        .pFrom = sSource

        .wFunc = FO_DELETE
    End With

    Delete = SHFileOperation(SHFO)

    lOUT_Abort = SHFO.fAborted
    lOUT_Error = 0

    Exit Function
errDelete:
    lOUT_Abort = 1
    lOUT_Error = Err.Number

    Err.Clear

    Delete = 0
End Function