❶ 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