modcopy.bas

1.如果在向导设置班级数为8时,此数值为班级总数

Attribute VB_Name = "ModCOPY"
Public 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 '  only used if FOF_SIMPLEPROGRESS
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Public Const FO_COPY = &H2
'FO_DELETE 删除 pFrom 中的文件（pTo 忽略）。
Public Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移动到 pTo。
Public Const FO_MOVE = &H1
'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4
'Dim SHFileOp As SHFILEOPSTRUCT
'例子:
'Dim SHFileOp As SHFILEOPSTRUCT
' 删除
'SHFileOp.wFunc = FO_DELETE
'SHFileOp.pFrom = "c:\config.old" + Chr(0)
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
'Call SHFileOperation(SHFileOp)
' 删除多个文件
'SHFileOp.wFunc = FO_DELETE
'SHFileOp.pFrom = "c:\config.old" + Chr(0) + "c:\autoexec.old" + Chr(0)
'SHFileOp.fFlags = FOF_ALLOWUNDO
'Call SHFileOperation(SHFileOp)
' 拷贝
'SHFileOp.wFunc = FO_COPY
'SHFileOp.pFrom = "c:\t\*.*"
'SHFileOp.pTo = "d:\t\*.*"
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
'Call SHFileOperation(SHFileOp)
' 移动
'SHFileOp.wFunc = FO_MOVE
'SHFileOp.pFrom = "c:\config.old" + Chr(0)
'SHFileOp.pTo = "d:\t"
'SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
'Call SHFileOperation(SHFileOp)