nachsehen, ob datei in einem ordner ist/kopieren
30.06.2004 11:16:53
Chris
ich habe folgendes Problem. Ich möchte nachsehen, ob ine bestimmte Datei in dem Vorlagenordner vorhanden ist.
Dazu habe ich untenstehenden Code erstellt. NUn sollte die Variable 'A' 1 oder 0 sein, jenachdem, ob die Datei in dem Ordner ist oder nicht. Allerdings bleibt die Variable immer leer, egal, ob die Datei drin ist oder nicht.
Weite will ich diese Datei in den Vorlagenordner kopieren, wenn sie nicht schon drin ist. Leider weiß ich auch nicht, wie ich das anstellen soll.
Bin für jeden Tip dankbar.
Gruß
Chris
Sub test
'Der Pfad des Vorlagen-Ordners wird der Variable 'VorlagenOrdner' übergeben
VorlagenOrdner = Application.TemplatesPath
'Hier wird nachgesehen, ob es im Vorlagenordner die Datei test.dot gibt
Ordner = "test.dot"
A = Dir(VorlagenOrdner & Ordner)
If A <> 0 Then 'Datei ist im VorlagenOrdner
'Wenn sie nicht in diesem Ordner vorhanden ist, wird sie dort hin kopiert...
MsgBox "ist drin"
Else
End Sub
Anzeige