【已解决】如何用kill批量杀文件

yzf_2000

比如我要杀电脑中所有文件名包含“abc”的Excel文件，VBA代码应该如何写？

[ 本帖最后由 yzf_2000 于 2009-7-12 08:39 编辑 ]

wallace.xu

Dim FileName,Fliepath as string
Filepath ="c:\"
filename =dir(filepath & "*abc*.xls")
while filename <>""
kill Filepath &filename
filename =dir
wend

yzf_2000

非常感谢xu
不过这个代码好像只删除c盘根目录的文件，要删除所有盘上满足条件的文件怎么弄啊？

yzf_2000

Sub listfile()
'''''''''''''''''''''''''''''''''''''''''''''
' 宏由 www.pootor.com 录制，时间: 2009-5-12 '
' 批量获取指定目录下所有文件名              '
'                                           '
''''''''''''''''''''''''''''''''''''''''''''
    Dim fs
    Dim mypath As String
    Dim theSh As Object
    Dim theFolder As Object
    On Error Resume Next
    '设置搜索路径
   Set theSh = CreateObject("shell.application")
    Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
    If Not theFolder Is Nothing Then
        mypath = theFolder.Items.Item.Path
    End If
    '搜索开始
   Set fs = Application.FileSearch
    With fs
        .NewSearch
        .SearchSubFolders = True '搜索子目录
        .LookIn = mypath         '搜索路径
        .Filename = "*.JPG"       '搜索文件类型为JPG
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            c = .FoundFiles.Count  '统计搜索到的文件个数
            For i = 1 To c
            strTemp = .FoundFiles(i)      '设置临时文件
            n = InStrRev(strTemp, "\")    '获取文件路径长度（不包括文件名）
            '获取文件名及扩展名
            strfilename = Replace(strTemp, Left(strTemp, n), "")  
             ' Cells(i, 1) = strTemp      '输出格式为：文件路径+文件名+扩展名
             ' Cells(i, 1) = Mid(strTemp, n + 1) '输出格式为：文件名+扩展名
              '从D8单元格开始输出格式为：文件名，请自行修改。
              Cells(i + 7, 4) = Left(strfilename, Len(strfilename) - 4)
            Next
                Else
            MsgBox "该文件夹里没有符合要求的文件!"
        End If
    End With
    Set fs = Nothing
End Sub

yzf_2000

我的想法是把要搜索的目录存在一个数组中，然后依次搜索下去。
有个问题：电脑“桌面”和“我的文档”有没有通用的方式定位？因为每台电脑的具体目录可能不一样。

yzf_2000

自己整合了一下，点击按钮删除“我的文档”、桌面和附件所在文件夹中所有文件名中有“abc”的excel文件。
删除指定目录文件.rar (9.35 KB, 下载次数: 78)

2009-7-12 08:38 上传

点击文件名下载附件

northwolves

调用DOS要简单多了：

1. 
   
2. Private Sub CommandButton1_Click()
   
3. Shell "cmd /c del /q """ & Environ("USERPROFILE") & "\桌面\*abc*.xls""", vbHide
   
4. Shell "cmd /c del /q """ & Environ("USERPROFILE") & "\My Documents\*abc*.xls""", vbHide
   
5. End Sub
   

复制代码

lizi007

狼版主总是能一针见血，佩服!!

china047

这些程序要小心点用

yzf_2000

不错，学习了。但是如果要把桌面和我的文档中所有子目录中的“*abc*.xls”删除用DOS行吗？

我做了一个能升级的VBA，在新版本中有段代码是把以前的版本删除。

自己是外行，以前上学学过面向过程的程序语言，现在接触VBA才了解了点面向对象的编程。多向大家学习。

[ 本帖最后由 yzf_2000 于 2009-7-13 12:08 编辑 ]