Copying Files

Dim F As Folder
Dim fpath As String
Dim fsys As FileSystemObject
 
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40
Const FOF_SILENT = &H4
Const FOF_NOCONFIRMATION = &H10
Const FOF_RENAMEONCOLLISION = &H8
Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_FILESONLY = &H80
Private 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
 
Private Declare Function SHFileOperation Lib "shell32.dll" _
    Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Dim lFileOp  As Long
Dim lresult  As Long
Dim lFlags   As Long
Dim SHFileOp As SHFILEOPSTRUCT
 
Private Sub Data1()
Screen.MousePointer = vbHourglass
        lFileOp = FO_COPY
        lFlags = lFlags Or FOF_SILENT
        lFlags = lFlags Or FOF_NOCONFIRMATION
        
        With SHFileOp
        .wFunc = lFileOp
        .pFrom = "C:\MSSQL7\Data\Mydb_Data.MDF"
        .pTo = App.Path & "\Data"
        .fFlags = lFlags
        End With
lFlags = lFlags Or FOF_SILENT
lFlags = lFlags Or FOF_NOCONFIRMATION
lFlags = lFlags Or FOF_RENAMEONCOLLISION
lFlags = lFlags Or FOF_NOCONFIRMMKDIR
lFlags = lFlags Or FOF_FILESONLY
 
lresult = SHFileOperation(SHFileOp)
 
Screen.MousePointer = vbDefault
If lresult <> 0 Or SHFileOp.fAborted Then Exit Sub
End Sub
Private Sub Data2()
Screen.MousePointer = vbHourglass
        lFileOp = FO_COPY
        lFlags = lFlags Or FOF_SILENT
        lFlags = lFlags Or FOF_NOCONFIRMATION
        
        With SHFileOp
        .wFunc = lFileOp
        .pFrom = "C:\MSSQL7\Data\Mydb_Log.LDF"
        .pTo = App.Path & "\Data"
        .fFlags = lFlags
        End With
       
lFlags = lFlags Or FOF_SILENT
lFlags = lFlags Or FOF_NOCONFIRMATION
lFlags = lFlags Or FOF_RENAMEONCOLLISION
lFlags = lFlags Or FOF_NOCONFIRMMKDIR
lFlags = lFlags Or FOF_FILESONLY
 
lresult = SHFileOperation(SHFileOp)
 
Screen.MousePointer = vbDefault
If lresult <> 0 Or SHFileOp.fAborted Then Exit Sub
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79: