❶ 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