Datei löschen, aber nur Dateiendung bekannt
06.03.2006 14:39:35
Olli
ich hab da mal wieder ein kleines Problem und hoffe, mir kann geholfen werden.
Ich möchte mittels Makro erreichen, dass die (einzige) Datei mit der Endung ".exe", die sich in demselben Ordner wie die Exceltabelle befindet, gelöscht wird. Problem ist, dass mir der Name der Datei nicht bekannt ist (variiert).
Der Code, wenn mir der Name der Datei bekannt ist, ist soweit klar:
Dim finden As String
finden = Dir(ThisWorkbook.Path & "\datenbank" & ".exe")
If finden "" Then
Kill ThisWorkbook.Path & "\" & finden
End If
Aber wie kann ich "datenbank" als Variable ausgeben? Leider ist die Namensgebung der Datei systembedingt nicht voraussehbar und ohne Schema...
Kann mir wer nen Tip geben?
Gruß