vb中有什么函数，能够把一个目录下面的所有文件移动到另外一个目录下面

[shine333]

RT
有没有一步到位的函数，如果没有，请写详细一点，谢谢。
分不够还可以再加

[ucp1997]

好像是filecopy函数，查查MSDN

[online]

Private 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
End Type

Private Declare Function SHFileOperation Lib _
"shell32" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40
Const FOF_NOCONFIRMATION = &H10

Private Sub Command1_Click()
Dim xFile As SHFILEOPSTRUCT

'复制
xFile.pFrom = "c:\bbb\*.*"
xFile.pTo = "c:\aaa"
xFile.fFlags = FOF_NOCONFIRMATION
xFile.wFunc = FO_COPY
xFile.hwnd = Me.hwnd
If SHFileOperation(xFile) Then
End If

End Sub

Private Sub Command2_Click()
Dim xFile As SHFILEOPSTRUCT

'删除
xFile.pFrom = "c:\bmp\*.*"
'xFile.pTo = "c:\"
xFile.wFunc = FO_DELETE
xFile.hwnd = Me.hwnd
'将fFlags设置为FOF_ALLOWUNDO
'允许被删除的文件放置到回收站中
xFile.fFlags = FOF_ALLOWUNDO
If SHFileOperation(xFile) Then
Debug.Print "Success"
End If
End Sub

Private Sub Command3_Click()
Dim xFile As SHFILEOPSTRUCT
'更名
xFile.pFrom = "c:\123.doc"
xFile.pTo = "c:\456.doc"
xFile.wFunc = FO_RENAME
xFile.hwnd = Me.hwnd
If SHFileOperation(xFile) Then
End If
End Sub

Private Sub Command4_Click()
'移动
xFile.pFrom = "c:\bmp\eee.bmp"
xFile.pTo = "c:\"
xFile.wFunc = FO_MOVE
xFile.hwnd = Me.hwnd
If SHFileOperation(xFile) Then
End If
End Sub

[aohan]

写的真快

[online]

Move 方法


描述

将一个指定的文件或文件夹从一个地方移动到另一个地方。

语法

object.Move destination

Move 方法语法有如下几部分：

部分 描述
object 必需的。始终是一个 File 或 Folder 对象的名字。
destination 必需的。文件或文件夹要移动到的目标。不允许有通配符。


说明

Move 方法对一个 File 或 Folder 的结果和执行 FileSystemObject.MoveFile 或 FileSystemObject.MoveFolder 操作的结果是一样的。但应当注意，后面的方法能够移动多个文件或文件夹。

[zhouxu21]

用fso模型，FileSystemObject.MoveFolder ,用for each -next 列举文件夹内所有文件同时移动即可

[江语]

先复制，然后粘贴，最后删除！

[有哥]

online(龙卷风V3.0--笑傲江湖) 的最规范，这是微软的标准做法

[熊孩子开学喽]

实用SHELL函数加上DOS命令“MOVE”就可以了。

[online]

就这样
郁闷

[GGL123]

UP

[samelie]

使用FSO，建立，得到句柄，然后移动.