vb 文件操作命令

'移动文件（剪切）
'把c:\test4.txt移动到c:\temp
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_MOVE
SHFileOp.pFrom = "c:\test4.txt" + Chr(0)
SHFileOp.pTo = "c:\temp"
End Sub
Private Sub Command4_Click() '选择要移动文件所在的路径
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
End Sub
3.删除文件夹
要想删除文件夹，可以利用文件对象的DeleteFolder方法完成文件的删除操作。该方法可以将文件夹和文件夹中的内容全部删除，并不对文件夹中是否有内容进行判断。由于DeleteFolder方法是FSO对象的方法，所以在使用该方法前需要对FSO对象进行引用。通过选择Visual Basic菜单中的“工程”→“引用”命令，在弹出的“引用”对话框中选中“Microsoft Scripting Runtime”复选框，单击“确定”按钮，即可引用该对象。
MsgBox "文件复制成功！", vbInformation, "明日图书"
End If
End Sub
Private Sub Command3_Click() '选择文件存放的路径
CommonDialog1.ShowSave
Text2.Text = CommonDialog1.FileName
Dim c As Integer
Call RiStr
c = MsgBox("确认将该文件夹删除吗?", 17, "提示信息")
If c = vbOK Then
fso.DeleteFolder Text1.Text '删除文件夹
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
'其中的两个常量的含义：
'FOF_ALLOWUNDO 允许在回收站还原，一般这一项是必需的。
'FOF_NOCONFIRMATION 不显示确认对话框，直接丢进回收站。
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
'SHFileOp.pTo所指向的必须是一个已经纯在的文件夹
'同样可以移动多个文件，参考第一个问题。
YWJ = RTrim$(Text1.Text)
L = Len(YWJ)
For i = 1 To L
S = Right$(YWJ, i)
If Left$(S, 1) = "\" Then
Dim RStr As String
运行程序，单击“<<”按钮，选择要删除的文件夹，然后单击“删除”按钮，此时会弹出提示信息对话框，单击“确定”按钮，即可将该文件夹删除，如图13.7所示。
关键代码如下：
Dim STStr As String
Dim SSTr As String
Dim fso As New FileSystemObject
Files = "c:\test1.txt" + Chr(0) + "c:\test2.txt" + Chr(0) + "c:\test3.txt" + Chr(0)
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = Files
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
'复制目录及其子目录和包含的文件
'把c:\temp复制到c:\temp2
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "c:\temp\*.*"
MsgBox "文件移动成功！", vbInformation, "明日图书"
End If
End Sub
Private Sub Command3_Click() '选择文件移动后的路径
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command4_Click() '选择要复制文件的路径
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
2.利用MoveFile函数移动文件
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
'这两个常量的值请自行查询。
'同时删除多个文件c:\test1.txt、c:\test2.txt、及 c: \test3.txt
Dim SHFileOp As SHFILEOPSTRUCT
Dim SHFileOp As SHFILEOPSTRUCT
Dim Files As String
Private Sub Command1_Click()
If txt_ywj.Text = "" Or txt_mbwj.Text = "" Then
MsgBox "输入不能为空值", vbInformation, "明日图书"
Else
MoveFile Text1.Text, Text2.Text '实现文件移动的过程
Private Sub Command1_Click()
Dim FPaths As String
FPaths = FPath$(Me.hWnd, "浏览系统文件夹")
Text1.Text = FPaths
End Sub
Private Sub Command2_Click()
RStr = Right$(YWJ, i - 1)
SSTr = Mid(Text1.Text, 1, Len(Text1.Text) - Len(RStr))
Exit Sub
End If
Next i
End Sub
VB删除文件、复制目录、移动文件的方法
'删除文件c:\test.txt放进回收站
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = "c:\test.txt" + Chr(0)
1.利用FileCopy语句复制文件
Private Sub Command1_Click() '复制文件
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "输入不能为空值"
Else
FileCopy Text1.Text, Text2.Text '复制文件
SHFileOp.pTo = "c:\temp2\*.*"
SHFileOp.pTo = "c:\temp2\*.*"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
'常量FOF_NOCONFIRMMKDIR 的意思是，不显示“文件夹不存在，是否创建”对话框
VB 文件操作命令:
Kiil "路径" 删除文件
Mkdir "路径" 建立文件夹
FileCopy "路径","目的地" 复制文件
Name "路径1" As "路径2" 重命名
Shell "cmd.exe /c copy a.exe c:\", vbHide
copy 是复制,move 是移动,del是删除文件,rd是删除文件夹,通过shell调用cmd来完成
MsgBox "文件夹已经被成功删除!", 64, "提示信息"
End If
End Sub
Private Sub RiStr()
Dim YWJ, MWJ, L As String, S As String * 1, ASCIIN, i As Integer