Ankündigung

Einklappen
Keine Ankündigung bisher.

....alles löschen bis auf "*.zip" dateien

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • ....alles löschen bis auf "*.zip" dateien

    salut

    gibt es eine möglichkeit (batch oder vbs) wo ich in einem ordner alle dateien löschen kann, bis auf die zip-dateien, die kleiner sind als 1 MB (wichtig!)??

    thx
    garfield

  • #2
    Ich würde es mal mit der erweiterten Suche probieren.
    Zb. suchen nach Dateien die grösser sind als 1Mb, danach sortieren nach Dateityp und alle löchen bis auf die Zip.
    Gruss Moduuus


    - Duo cum faciunt idem, non est idem
    - Gutta cavat lapidem, non vi sed saepe cadendo

    Kommentar


    • #3
      Re: ....alles löschen bis auf "*.zip" dateien

      Original geschrieben von garfield
      salut

      gibt es eine möglichkeit (batch oder vbs) wo ich in einem ordner alle dateien löschen kann, bis auf die zip-dateien, die kleiner sind als 1 MB (wichtig!)??

      thx
      garfield
      Wie man dies mit VBS machen müsste, weiss ich nicht mehr auswendig. Hier ist aber der Code in VB .NET (ist ja ähnlich wie bei VB6 bzw. VBS). Wenn du keine VS .NET IDE hast, kannst du mir ne PS schicken dann schick ich dir die kompilierte EXE.

      Code:
             Dim lngLength As Long
          Dim strFolderPath As String
      
          With Me.FolderBrowserDialog
            .ShowDialog()
            If .SelectedPath <> "" Then
              strFolderPath = .SelectedPath
            Else
              Exit Sub
            End If
          End With
      
          Dim Directory As New DirectoryInfo(strFolderPath)
      
          Dim Files As FileInfo() = Directory.GetFiles()
      
          For Each f As IO.FileInfo In Files
            lngLength = f.Length
      
            If f.Name.EndsWith(".zip") = True And f.Length < 1048576 Then
              Me.txtLog.Text = Me.txtLog.Text & "ZIP File('" & f.Name & "') nicht gelöscht - " & Date.Now
            Else
              File.Delete(f.FullName)
              Me.txtLog.Text = Me.txtLog.Text & "File('" & f.Name & "') gelöscht - " & Date.Now
            End If
      
          Next
      Bachelor of Science ZFH in Information Technology

      Kommentar

      Lädt...
      X