sletning af filer i mappe og undermapper

Et skud fra hoften (rekursiv filkopieringsrutine omskrevet til at slette i stedet for at kopiere)

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
DeleteFile ".txt", fso.GetFolder("c:\temp")


Private Sub DeleteFile(pattern As String, folder As Scripting.folder)
Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      DeleteFile pattern, tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If lcase(right(tmpFile.Name,4)) = lcase(pattern) Then
        tmpfile.delete
      End If
    Next
  End If
End Sub

hmm der sker ik rigtig så meget synes jeg heheh
min kode ser sådan her ud:


Private Sub Command1_Click()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Call DeleteFile(fso.GetFolder("c:\a"))

End Sub






Private Sub DeleteFile(folder As Scripting.folder)

Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      DeleteFile tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If LCase(Right(tmpFile.Name, 4)) = LCase(pattern) Then
        Label1.Caption = tmpFile.Name
        tmpFile.Delete
       
      End If
    Next
  End If
End Sub

Hvad mener du - kommer der fejl, bliver ingen filer slettet, hvad?

Den kode jeg har givet dig virker perfekt på min PC - du må have lavet ged i den når du har omskrevet den...

Hvorfor i alverden har du omskrevet funktionen til kun at modtage en parameter (du har udeladt pattern), men du bruger STADIG pattern inde i funktionen.

eh ja det er vist min fejl doh sorry det virker nu :)