vb怎样删除指定路径文件夹

① vb在指定路径内新建和删除文件夹

我是原来1楼的那个，

'建立
Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.FolderExists("c:\abc") Then
MsgBox ("文件悔好夹已存在")
Else
fso.CreateFolder ("此茄c:\abc")
End If
End Sub

'删除
Private Sub Command2_Click()
Dim fso As New FileSystemObject
If Not fso.FolderExists("c:\abc") Then
MsgBox ("文件夹不存在")
Else
fso.DeleteFolder ("c:\abc")
End If
End Sub

--------------------------------------
忘了和你说了，要在菜单里选
工程－引用
Microsoft Scripting Runtime
然后再运行。

-------------------------
另外，关于love_u365s说的
rmdir ("c:\abc")'在C盘里删除文件夹abc
mkdir ("c:\abc")'在C盘里建立文件夹森前察abc
但是，rmdir在删文件夹时，如果文件夹里有文件，就无法删除，但是用我说的FSO就不会这样。

看你的需求了，如果c:\abc里无文件，还是用rmdir("c:\abc")简单，如果里有文件就用fso

② VB删除文件夹

用rmdir来删除,但使用 RmDir 来删除一个含有文件的改举目录或文件夹，则会发生错误。所以在核搜碧试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件.
Kill "*.*" 删除当前目录下所有文件
' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR" '漏樱 将 MYDIR 删除。

③ 如何用VB删除指定的文件夹和文件

分类: 电脑/网络 >> 程序设计 >> 其他编程语言铅运
问题描述:

我想要用VB删除 C:\Documents and Settings\All Users\“开始”菜单\程序\启动\文件夹中的所有文件。

但我用以下两个命令都无法删除，请问这段代码该如何写：

Kill ("C:\Documents and Settings\All Users\“开始”菜单\程序\启动\*.*")

Shell "cmd.exe /c del /f /q C:\Documents and Settings\All Users\“开始”菜单\程序\启动\*.*", 0

另外想用VB支不支持windows中的环境变量，如果不支持，该如何调用。答出后一题，再追加30分。

解析:

Kill语句不用括号。

Kill "C:\Documents and Settings\All Users\“隐岁开始”菜单\程序\启动\*.*" 即可达到目的，我槐携梁刚试过。可以的。

但注意只能删除文件，文件夹不能被删除。

④ 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即文件夹路径，而且不必先清空文件夹
试一试

⑤ 如何利用VB删除指定文件

删除文件夹携亮岩应该用辩御RmDir命令，但该只能删除空的文件夹，你可以先kill掉文件夹下的文件再用此函数删键运除文件夹。

⑥ vb退出时删除指定的文件夹怎样实现

可以分两步：团陪
1. kill ("d:\指定文件夹\*.*")
2. rmdir ("慧春d:\指定文件前或耐夹")

⑦ VB如何删除指定文件夹内的所有文件和子文件

Option Explicit

Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的键蔽文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit Sub

On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件稿亩州夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除！"
Exit Sub
ErrorHandle:
MsgBox "无效的文件夹名称:" & strPathName
End Sub

Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String

sPath = CurrPath & "\"

sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果耐兆是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
Kill (sPath & sFileName)
Label1.Caption = sPath & sFileName '显示删除过程
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
Label1.Caption = CurrPath
End Sub