魔兽fps地图排行榜:VB 复制文件夹问题

可以这样解决你的问题：

在公共模块之中：Option Explicit

Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4

Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40

Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

在form1中：

Private Sub Command2_Click()

Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "c:\TEMP\*.*" 《《原文件目录
SHFileOp.pTo＝"D:\aaa\*.*" 《《复制到的目录

SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
SHFileOperation SHFileOp

End Sub

如果是vb60的话
FileCopy "C:\QQ.exe", "d:\QQ.exe"

复制C:\QQ 粘贴Z:\QQ

路过
偶不会