Ⅰ vb删除文件夹
Private Sub Command1_Click()
RmDir folderPath
End Sub
Public Function folderPath() As String
Set spShell = CreateObject("Shell.Application")
Set spFolder = spShell.BrowseForFolder(0, "张志晨制作", 0, 0)
folderPath = spFolder.self.Path
End Function
张志晨
Ⅱ VB 强制删除文件和文件夹
看看能够帮到你吧。。。。3个方法可以实现:
1:
kill 文件 '删除文件
rmdir 文件夹 '删除文件夹
如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
2:
或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹
3:
用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一个文件
Ⅲ 如何用VB复制、移动、删除文件、文件夹
1.利用FileCopy语句复制文件
Private Sub Command1_Click() '复制文件
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "输入不能为空值"
Else
FileCopy Text1.Text, Text2.Text '复制文件
MsgBox "文件复制成功！", vbInformation, "明日图书"
End If
End Sub
Private Sub Command3_Click() '选择文件存放的路径
CommonDialog1.ShowSave
Text2.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
Private Sub Command1_Click()
If txt_ywj.Text = "" Or txt_mbwj.Text = "" Then
MsgBox "输入不能为空值", vbInformation, "明日图书"
Else
MoveFile Text1.Text, Text2.Text '实现文件移动的过程
MsgBox "文件移动成功！", vbInformation, "明日图书"
End If
End Sub
Private Sub Command3_Click() '选择文件移动后的路径
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command4_Click() '选择要移动文件所在的路径
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
End Sub
3.删除文件夹
要想删除文件夹，可以利用文件对象的DeleteFolder方法完成文件的删除操作。该方法可以将文件夹和文件夹中的内容全部删除，并不对文件夹中是否有内容进行判断。由于DeleteFolder方法是FSO对象的方法，所以在使用该方法前需要对FSO对象进行引用。通过选择Visual Basic菜单中的“工程”→“引用”命令，在弹出的“引用”对话框中选中“Microsoft Scripting Runtime”复选框，单击“确定”按钮，即可引用该对象。
运行程序，单击“<<”按钮，选择要删除的文件夹，然后单击“删除”按钮，此时会弹出提示信息对话框，单击“确定”按钮，即可将该文件夹删除，如图13.7所示。
关键代码如下：
Dim STStr As String
Dim SSTr As String
Dim fso As New FileSystemObject
Private Sub Command1_Click()
Dim FPaths As String
FPaths = FPath$(Me.hWnd, "浏览系统文件夹")
Text1.Text = FPaths
End Sub
Private Sub Command2_Click()
Dim c As Integer
Call RiStr
c = MsgBox("确认将该文件夹删除吗?", 17, "提示信息")
If c = vbOK Then
fso.DeleteFolder Text1.Text '删除文件夹
MsgBox "文件夹已经被成功删除!", 64, "提示信息"
End If
End Sub
Private Sub RiStr()
Dim YWJ, MWJ, L As String, S As String * 1, ASCIIN, i As Integer
MWJ = ""
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
RStr = Right$(YWJ, i - 1)
SSTr = Mid(Text1.Text, 1, Len(Text1.Text) - Len(RStr))
Exit Sub
End If
Next i
End Sub
Ⅳ vb删除文件
3个方法可以实现:
1:
kill 文件 '删除文件
rmdir 文件夹 '删除文件夹
如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
2:
或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹
3:
用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一个文件
Ⅳ VB删除文件夹
用rmdir来删除,但使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。所以在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件.
Kill "*.*" 删除当前目录下所有文件
' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR" ' 将 MYDIR 删除。
Ⅵ vb怎么删除文件夹里面的所有文件
直接调用DOS命令：
shell "cmd /C del /Q e:\aa\*.*" ,vbhide
本语句使用了/Q参数，del命令的其他参数为：
/P 删除每一个文件之前提示确认。
/F 强制删除只读文件。
/S 从所有子目录删除指定文件。
/Q 安静模式。删除全局通配符时，不要求确认。
/A 根据属性选择要删除的文件。
用KILL，不能删除文件夹，只能删除文件：
kill "D:\aa\*.*"
2、
d="D:\aa\"
f=dir(d & "*.*")
do while f<>""
kill d & f
f=dir
loop
Ⅶ vb,怎么删除文件夹(有时为空，有时有文件)
有两种方法：1、IfDir(Dir1.Path&\*.*,)<Then'判断文件是否存在KillDir1.Path&\*.*'先要删除所有文件才能删除目录IfDir(Dir1.Path&\*.*,)=Then'再次判断文件是否存在RmDir(Dir1.Path&\)MsgBox文件夹删除成功！,vbInformation,提示信息！EndIfEndIf提示：这种方法是先判断文件夹里面是否存在文件，如果不存在，则直接移除文件夹，如果存在，则删除文件夹中的文件，再把文件夹移除，但是它有一个致命的弱点，那就是如果文件夹中还含有子文件夹，以及子文件夹中还含有文件就做不到了。所以还有另外一种方法，可以完全删除文件夹，不管文件夹里面有没有什么东西，都可以实现。这种方法就是VB中特有的方法FSO法，具体应用如下：通过工程菜单中的引用选项，在里面选中MicrsoftScriptingRuntime后单击确定然后就可以写代码了：添加到你相应的事件里面去就可以了=MsgBox(文件夹一旦删除将不可恢复，确实要删除该文件夹吗？
Ⅷ VB怎么删除文件夹
引用FSO（Microsoft Scripting Runtime），然后写出
Dim FSO As New FileSystemObject
FSO.DeleteFolder ThePath 'ThePath即文件夹路径，而且不必先清空文件夹
或：（不必引用FSO）
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder ThePath 'ThePath即文件夹路径，而且不必先清空文件夹
试一试