Makro-Befehl funktioniert nicht mehr

[Hardbopper]

Hallo,

zur Bereinigung des Download-Ordners von bestimmten Dateien nutze ich den nachfolgenden Befehl. Dieser funktioniert seit einem Umzug auf einen neuen PC nicht mehr.

Woran kann das liegen ? (Die Adresse des Ordners habe ich überprüft, beim Debuggen wird die vorletzte Zeile "beanstandet" ).  


Sub KillEmAll()
  'löscht alle .csv im Verzeichnis
  Const strVerz As String = "C:\Users\Werner Schütz\Downloads"
  Kill strVerz & "*.csv"
End Sub


Herzlichen Dank im Voraus

Hardbopper

[Lutz Fricke]

Hallo Hardbopper,

ich weiß nicht, wie Excel genau bei*.csv arbeitet, aber mir fehlt im Pfad das abschließende "\".
Probier mal:

Code:

  Const strVerz As String = "C:\Users\Werner Schütz\Downloads\"

Gruß,
Lutz

[Hardbopper]

Hallo Lutz,

daran liegt es nicht, ich vermute eher, dass der Befehl ins Leere geht, weil es sich bei den Dateien, um die es geht, zwar nach ihrer Eigenschaft eindeutig um CSV-Dateien handelt, sie aber nicht mit der entsprechenden Endung versehen sind.

Hardbopper

[Lutz Fricke]

Hallo Hardbopper,

dazu fällt mir nur eins ein: Hä?!?! 

Was ist eine Datei, bei der es sich

eindeutig um CSV-Dateien handelt, sie aber nicht mit der entsprechenden Endung versehen sind.

Excel ist es reichlich wurscht, wie die Datei von der Eigenschaft her aussieht. Wenn nicht .csv dransteht ist es keine CSV-Datei. Und dann findest Du sie mit strVerz & "*.csv" natürlich auch nicht.
Hinter Kill muss der Dateiname inkl. Pfad stehen, so wie du ihn im Explorer siehst...

Gruß,
Lutz