vb复制整个文件夹到指定位置

vb复制整个文件夹到指定位置  2007-09-24 11:58:43|  分类： 默认分类 |  标签： |字号大
中
小 订阅 
Public Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

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   Function   CopyPath(ByVal   mPath   As   String,   ByVal   tPath   As   String)   As   Boolean   

                On   Error   Resume   Next   

                Dim   shfileop   As   SHFILEOPSTRUCT