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