删除目录中的所有文件vb6

Question

我想知道是否有人可以帮助我一个vb6函数，它将删除目录内的所有文件（不包括子目录）。

Answer 1

一号线，使用VB6声明Kill

Kill "c:\doomed_dir\*.*" 

的help topic says“在Microsoft Windows，杀支持使用多字符（*）和单字符（？）通配符的指定多个文件“。

另外 - 我宁愿避免Microsoft脚本运行时（包括FileSystemObject）。根据我的经验，在用户机器上偶尔会出现这种情况，这可能是因为他们的IT部门对病毒有偏见。

Answer 2

我认为这应该工作：

Dim oFs As New FileSystemObject 
Dim oFolder As Folder 
Dim oFile As File 

If oFs.FolderExists(FolderSpec) Then 
    Set oFolder = oFs.GetFolder(FolderSpec) 

    'caution! 
    On Error Resume Next 

    For Each oFile In oFolder.Files 
     oFile.Delete True 'setting force to true will delete a read-only file 
    Next 

    DeleteAllFiles = oFolder.Files.Count = 0 
End If 

End Function 

Answer 3

我没有测试过所有情况，但它应该工作。它应该删除每个文件，如果文件被锁定或者你没有访问权限，你应该得到错误70被捕获，你会得到一个中止，重试或忽略框。

Sub DeleteAllFilesInDir(ByVal pathName As String) 
    On Error GoTo errorHandler 
    Dim fileName As String 
    If Len(pathName) > 0 Then 
    If Right(pathName, 1) <> "\" Then pathName = pathName & "\" 
    End If 
    fileName = Dir(pathName & "*") 

    While Len(fileName) > 0 
    Kill pathName & fileName 
    fileName = Dir() 
    Wend 

    Exit Sub 
errorHandler: 
    If Err.Number = 70 Then 
    Select Case MsgBox("Could not delete " & fileName & ". Permission denied. File may be open by another user or otherwise locked.", vbAbortRetryIgnore, "Unable to Delete File") 
     Case vbAbort: 
     Exit Sub 
     Case vbIgnore: 
     Resume Next 
     Case vbRetry: 
     Resume 
    End Select 
    Else 
    MsgBox "Error deleting file " & fileName & ".", vbOKOnly Or vbCritical, "Error Deleting File" 
    End If 
End Sub 

Answer 4

这似乎是脚本运行FileSystemObject的公司的DeleteFile方法也支持通配符，因为这对我的作品：

Dim fs As New Scripting.FileSystemObject 
fs.Deletefile "C:\Temp\*.jpg", true 

这种方法比@Corazu建议的方法控制较少，但可能在某些一些实用案例。