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
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
Wir verarbeiten personenbezogene Daten über Nutzer unserer Website mithilfe von Cookies und anderen Technologien, um unsere Dienste bereitzustellen, Werbung zu personalisieren und Websiteaktivitäten zu analysieren. Wir können bestimmte Informationen über unsere Nutzer mit unseren Werbe- und Analysepartnern teilen. Weitere Einzelheiten finden Sie in unserer Datenschutzrichtlinie.
Wenn Sie unten auf "Einverstanden" klicken, stimmen Sie unserer Datenschutzrichtlinie und unseren Datenverarbeitungs- und Cookie-Praktiken wie dort beschrieben zu. Sie erkennen außerdem an, dass dieses Forum möglicherweise außerhalb Ihres Landes gehostet wird und Sie der Erhebung, Speicherung und Verarbeitung Ihrer Daten in dem Land, in dem dieses Forum gehostet wird, zustimmen.
Kommentar