Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verzeichnis vorhanden?

Verzeichnis vorhanden?
21.07.2003 18:07:56
Franz W.
Hallo Forum,
wie ich bitte abfragen, ob ein Verzeichnis existiert?
if exist "E:\Microsoft\Excel" then msgbox "Gefunden"
if is "E:\Microsoft\Excel" then msgbox "Gefunden"
o.ä.
klappt leider gar nicht. Könnt Ihr mir bitte helfen?
Vielen Dank im Voraus
Grüße
Franz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnis vorhanden?
21.07.2003 18:14:03
Hajo_Zi
Hallo Franz

Sub Ordner_vorhanden()
'   von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "D:\Eigene Dateien\Hajo\"
MsgBox Fso.FolderExists(Ordnername)
End Sub


Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Verzeichnis vorhanden?
21.07.2003 18:22:29
Franz W.
Hallo Hajo,
ganz toll Deine Antwort, gleich für Ordner und Datei, Danke!! Wie naiv ich oft noch rangehe..... vielleicht lern ich's ja auch mal?!?
Vielen Dank und Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige