vb中复制文件的方法是什么？

用API函数 SHFileOperation的方法。

以下是使用SHFileOperation删除复制移动文樱巧件的例子，可以复制文件夹

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 '只有在 FOF_SIMPLEPROGRESS 时用

End Type

Private Declare Function SHFileOperation Lib _

"shell32.dll" Alias "SHFileOperationA" (lpFileOp _

As SHFILEOPSTRUCT) As Long

'wFunc 常数

'FO_COPY 把 pFrom 文件拷贝到 pTo。

Const FO_COPY = &H2

'FO_DELETE 删除 pFrom 中的文件（pTo 忽略）。

Const FO_DELETE = &H3

'FO_MOVE 把 pFrom 文件移动到 pTo。

Const FO_MOVE = &H1

'fFlag 常数旦凯

'FOF_ALLOWUNDO 允许 Undo 。

Const FOF_ALLOWUNDO = &H40

'FOF_NOCONFIRMATION 不显示系统确认对话框。

Const FOF_NOCONFIRMATION = &H10

'FOF_NOCONFIRMMKDIR 不提示是否新建目录。

Const FOF_NOCONFIRMMKDIR = &H200

'FOF_SILENT 不显示进度对话框

Const FOF_SILENT = &H4

Private Sub Command1_Click()

'例子：

Dim SHFileOp As SHFILEOPSTRUCT

' 拷贝

SHFileOp.wFunc = FO_COPY

SHFileOp.pFrom = "d:\MASM611"

SHFileOp.pTo = "c:\MASM611"

SHFileOp.fFlags = FOF_NOCONFIRMMKDIR

Call SHFileOperation(SHFileOp)

End Sub

或者用命令行

shell "cmd.exe /c xcopy "+chr(34)+"C:\新建文件夹 c:\aa /q /e"脊迟键 +chr(34)

VB提供了对象Clipboard完成剪贴板的 *** 作

将文本复制到剪贴板

Clipboard.Clear

Clipboard.SetText

"text"

将bmp图片复制到剪贴板

Clipboard.Clear

Clipboard.SetData

LoadPicture("a.bmp")

将剪贴板中文本取到

变量temp中

Dim

temp

As

String

If

Clipboard.GetFormat(CF_TEXT)

Then

Temp

=

Clipboard.GetText(CF_TEXT)'CF_TEXT

=

1

将剪贴板中图片粘贴到当前窗体

If

Clipboard.GetFormat(CF_BITMAP)

Then

Picture

=

Clipboard.GetData()'CF_BITMAP

=

2

CF_LINK

&HBF00

DDE

conversation

information

CF_TEXT

1

Text

CF_BITMAP

2

Bitmap

(.BMP

files)

CF_METAFILE

3

Metafile

(.WMF

files)

CF_DIB

8

Device-independent

bitmap

CF_PALETTE

9

Color

palette

快捷李运迹键在菜单定定义窗口中设置啦

再说cut:

Ctrl+X,

copy:

Ctrl+C,

paste:

Ctrl+V

都已经成为约定俗成的使用方法了

最好不要搞什么

shift+1复哪并制ctrl+1粘贴

shift+2复制悄岁ctrl+2粘贴另一组

打开excel，使用快捷键Alt+

F11

，打开vba，双击左边工程框里面的sheet1，把你找到的猜困代码复制粘贴到腊手右边打开的代码框中，按F5就可以运行了，或者回到excel窗口，按Alt+F8，打开宏对话框，穗局念选中需要的宏，点执行。

---