Question

vb 如何剪切文件夹,不是文件

Answer 1

Private Sub Command1_Click()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\test", "c:\temp\"
fso.DeleteFolder ("c:\test"), True
End Sub

Answer 2

Private Function CopyFolder(Source As String,Destination As String)As Integer
On Error Goto ErrHandler
CreateObject("Scripting.FileSystemObject").CopyFolder Source,Destination
RmDir Source
CopyFolder=1
Exit Function
ErrHandler:
'错误处理代码
End Sub

Answer 3

问题描述不详细。