补丁制作

Question

是啊
你自己也可以做
if dir(文件夹,vbdirectly)="" then mkdir 文件夹
然后复制文件啊

Answer 1

Dim fso As New Scripting.FileSystemObject
删除文件夹：
fso.DeleteFolder 文件夹路径, True
复制文件夹：
fso.CopyFolder source, des,True

Answer 2

DeleteDirectory(strPath)'一个用递归方式删除指定文件夹的函数
Public Function DeleteDirectory(ByVal strP As String) As Boolean
On Error GoTo ErrDeal
    Dim strT As String
    Dim colD As New Collection
    Dim lngT As Long
    
    strT = strP & "\*.*"
    strT = Dir(strT, vbDirectory)
    Do While strT <> ""
        If ((strT <> ".") And (strT <> "..")) Then
            If GetAttr(strP & "\" & strT) = vbDirectory Then
                colD.Add strP & "\" & strT
            End If
        End If
        strT = Dir()
    Loop
    For lngT = 1 To colD.Count
        Debug.Print colD(lngT)
        Call DeleteDirectory(colD(lngT))
    Next lngT
    Kill strP & "\*.*"
    RmDir strP
    
    DeleteDirectory = True
ErrDeal:
    Set colD = Nothing
    
End Function
CopyDirectory(strSp,strDp)'一个用递归方式复制文件夹的函数
暂没有，自己写一个吧（写好后能不能eMail To me）