vba删文件夹 vba创建文件夹

先获取文件夹下所有文件名,然后排序,再指定路径依次打开.

使用FSO,例子代码:Private Sub Workbook_Open() Set aaa = CreateObject(＂Scripting.FileSystemObject＂) aaa.DeleteFolder ＂d:\folder＂ End Sub

Sub Test() EnumFiles (＂D:＂) End Sub Sub EnumFiles(ByVal sPath As String) Dim fso As Object Set fso = CreateObject(＂Scripting.FileSystemObject＂) GetFile fso..

杀毒下,强力修复系统 不然下载个别的解压的

用Scripting.FileSystemObject＂方式 :如下删出C:\Documents and Settings\Administrator\桌面\新建文件夹\下面含用 “哈” 字的JPG文件 Sub aa() Set fso = CreateObject(＂Scripting.FileSystemObject＂) '建一个文件管理系统的对象 fso.DeleteFile ＂C:\Documents and Settings\Administrator\桌面\新建文件夹\*哈*.jpg＂ Set fso = Nothing End Sub

if Dir(＂C:\ls\*.*＂)<>＂＂ then kill ＂C:\ls\*.*＂RmDir ＂C:\ls＂如果文件夹里有文件无法直接删除文件夹,需要先删除文件夹里面的文件.

建议用Do循环+Dir函数+DeleteFile 方法或用Delete方法直接删除这个文件夹,再建一个同名文件夹即可.

'你想删除的文件的名称例如文件名是中国什么省汇总.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

把有以下代码的excel放入同一个文件件中,运行就可以了.Sub XXXX() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim MyDir As String MyDir .

1)、VB语句:KillSub DeleteFile() Dim strFile As String strFile = ThisWorkbook.Path & ＂\Temp.xls＂ Kill strFileEnd SubSub DeleteFile2()Dim strFile As String strFile = .