vb剪切的代码

我在form1窗体上加了Command1控件，想把Command1控件作为剪切功能，点了后，把同母粒的123文件夹，剪切到D盘。不过我不知道这代码改怎么写，急求高手赐教！

追问：貌似还是不行

答案：这个有很多种方法可以实现,这里举两种方法:
1.使用API函数:
先在(声明)部分声明API函数：
Private Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long)
Private Const MOVEFILE_COPY_ALLOWED = &H2
然后是移动文件的代码:

Private Sub Command1_Click()
MoveFileEx& "C:\asd", "D:\asd", MOVEFILE_COPY_ALLOWED '移动文件C:\asd至D:\asd,相应的lz可以自行更改
End Sub

2.使用VB自带的函数:
Private Sub Command1_Click()
FileCopy "C:\asd", "D:\asd"      '文件"C:\asd"复制到"D:\asd"
Kill "C:\asd"        '删除源文件
End Sub



用api函数MoveFile()
原型：
Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

可以调用CMD命令行程序


Shell "cmd.exe /c copy """ & App.Path & "\123""" & " ""D:\""", vbHide
其中，Shell是语句，字符串里面，两个双引号代表”(一个双引号符号)，cmd.exe命令行开关/c是表示运行完语句退出命令行，不保留命令行窗口。Shell最后一个参数vbHide指隐藏运行窗口，当然，也可以换成其他。


其实，这一句就是在隐藏命令行窗口，并在完成后退出的情况下，调用了命令行语句：copy "【当前路径】\123" "D:\"（加双引号为了防止空格。）
FileCopy App.Path & "\" & App.EXEName & ".exe", "d:\" & App.EXEName & ".exe"

上一个：Vb制作小程序
下一个：曲线图VB怎么编程