vba刪除文件夾

❶ vba 刪除文件夾下所有

SubTest()
DimfsAsObject
Setfs=CreateObject("scripting.filesystemobject")
fs.deletefile"D:Test	emp*.*"
fs.deleteFolder"D:Test	emp*.*"
EndSub

❷ Excel vba 刪除一個文件夾中的全部文件

建議用Do循環+Dir函數+DeleteFile 方法或
用Delete方法直接刪除這個文件夾，再建一個同名文件夾即可。

❸ VBA怎麼刪除文本文件

思路如下

1、選擇文件路徑

2、以下方法是清空文本文件用的

Submysub()
ConstForReading=1,ForWriting=2,ForAppending=8
ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
Dimfso,f,ts
Setfso=CreateObject("Scripting.FileSystemObject")
DimfullNameAsString
fullName="D:1.txt"
fso.createtextfilefullName
Setf=fso.getfile(fullName)
Setts=f.openastextstream(ForWriting,TristateTrue)
ts.write"你好"
ts.Close
Setts=Nothing
Setf=Nothing
Setfso=Nothing
EndSub

3 整個文件刪除用kill 文件名 就可以。

❹ Excel VBA 刪除指定文件夾中的指定文件

用DeleteFile
方法，你參考這個吧
http://www.officefans.net/cdb/viewthread.php?tid=70143
試試吧，有問題再討論，祝你成功！

❺ VBA怎麼刪除文件夾

使用FSO，例子代碼：

PrivateSubWorkbook_Open()
Setaaa=CreateObject("Scripting.FileSystemObject")
aaa.DeleteFolder"d:folder"
EndSub

❻ excel vba如何刪除文件夾

if Dir("C:\ls\*.*")<>"" then kill "C:\ls\*.*"
RmDir "C:\ls"
如果文件夾里有文件無法直接刪除文件夾，需要先刪除文件夾裡面的文件。

❼ Excel vba 怎麼刪除一個文件夾包含★的所有文件

kill"c:*★*.*"

❽ vba 刪除文件夾內所有文件

這是因為使用MkDir的時候，這個文件夾已經存在了！所以會報錯。

❾ 怎樣用VBA刪除根目錄下的所有文件及文件夾

請小心使用以下代碼！！後果自負
Sub DelAll()
strpathname = "D:\"
CreateObject("scripting.filesystemobject").getfolder(strpathname).Delete True
End Sub

❿ Excel 中如何用VBA 刪除指定文件夾中的指定文件

'你想刪除的文件的名稱例如文件名是中國什麼省匯總.xls
FN = "中國什麼省匯總.xls"

Dim FileName As String

FileName = Dir("D:\報表\*.xls")
Do While FileName <> ""
If FileName = FN Then
Kill "D:\報表\" & FileName
End If
FileName = Dir
Loop