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