Dos-Befehle erzeugen - Liste | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus,
im Prinzip ja. Empfehle Export der Liste als Textdatei mit eingesteuerten DOS-Kommandos. Benötigt also nur eine einfache For Each...In...Next...-Schleife über den Bereich in der Liste, in der dann dem Pfad DEL (oder war's ERASE ?) vorangestellt wird. Kannst ja mal eine Position zur Probe ändern und das aufzeichnen. Dann noch den Zyklus einbauen und fertig. Das, was du dazu noch brauchst, findest du in der Hilfe. Alles andere weißt du sicher (Dateityp .BAT und so...).
Ach so, die langen Namen! Das ist wohl das eigentliche Problem unter DOS. Wenn du die nicht in die DOS-Form konvertieren kannst, muss das alles auch das VBA-Pgm machen. Das wird dann allerdings ziemlich aufwendig, so dass ich eigentlich kaum glaube, dass das hier einer machen will. Da müsste bspw mit Instr progressiv nach den Textpositionen der Backslashs gefragt wdn. Am besten Pfade vorübergehend hier teilen, mit Mid auf bis max 6 Zeichen kürzen und dann die Durchnummerierung anfügen. Und das müsste alles in Variablen gespeichert wdn, damit die Pfade vgl wdn können. Analoges gilt für die Dateinamen. Ich glaube, das würde dann doch zu arbeitsaufwendig wdn. Und wer weiß, ob die dann unter DOS wirklich so heißen. Also, hilft alles nichts, du brauchst unbedingt ein Verzeichnis der DOS-Namen dieser Dateien als Grundlage. Dann wäre es wirklich kein Problem. Sicher stehen diese Dateien auf dem Server nicht einmal im selben Verzeichnis. Also wird's wohl doch Handarbeit wdn - dank der langen Namen! Es sei denn, du findest ein Tool, das eine Textdatei als Input akzeptiert und dir die DOS-Realnames als Output liefert.
Gruß Luc :-?

Option Explicit Sub KillFiles() Dim lngL As Long, zz As Long lngL = Cells(Rows.Count, 1).End(xlUp).Row ' letzte Zeile Spalte A If lngL < Cells(Rows.Count, 2).End(xlUp).Row Then _ lngL = Cells(Rows.Count, 2).End(xlUp).Row ' letzte Zeile Spalte B On Error GoTo XErr For zz = 1 To lngL Application.StatusBar = Format(zz, "00000 von ") & lngL If Not IsEmpty(Cells(zz, 1)) Then Kill Cells(zz, 1) ' Lösche File in Spalte A If Not IsEmpty(Cells(zz, 2)) Then Kill Cells(zz, 2) ' Lösche File in Spalte B Next zz MsgBox "Löschen erledigt" Application.StatusBar = False Exit Sub XErr: If Err.Number = 53 Then Resume Next ' File nicht gefunden - weiter MsgBox "Konnte File in Zeile " & zz & " nicht löschen" Resume Next End Sub

Beliebteste Forumthreads (12 Monate)

Dos-Befehle erzeugen - Liste

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread