Ⅰ 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即文件夾路徑，而且不必先清空文件夾
試一試