Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Existiert ein Ordner

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ MessageBox
Bild

Betrifft: Existiert ein Ordner
von: Paul
Geschrieben am: 25.10.2003 17:09:38
Guten Tag,
ich hätte gern gewußt, ob es in VB einen vordefinierten Befehl gibt, der die Existenz eines Ordners überprüft oder muß ich eine entsprechende Funktion selbst definieren? Wenn nein, wie geht letzteres mit einer anschließenden If ... Then ... Else Anweisung?
Dankeschön vielmals - Paul

Bild

Betrifft: AW: Existiert ein Ordner
von: Hajo_Zi
Geschrieben am: 25.10.2003 17:10:25
Hallo Paul

Option Explicit



Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub






Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo1\") <> "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub






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



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


Bild

Betrifft: AW: Existiert ein Ordner
von: Paul
Geschrieben am: 25.10.2003 17:17:19
Danke für die schnelle Antwort Hajo *up*
Leider hab ich absolut Null Ahnung von VB, so daß ich leider nicht weiß, wie ich nun diese Ordnerexistenzprüfung in eine "If ... Then ... Else" - Anweisung einbinde? Eine Messagebox brauch ich nicht sehen.
Danke nochmals, Paul
Bild

Betrifft: AW: Existiert ein Ordner
von: Hajo_Zi
Geschrieben am: 25.10.2003 17:19:03
Hallo Paul

für die Msgboxen mußt Du Deinen Anweisungen hinschreiben. Das sehe ich nicht welche.

1. die meisten haben hier keine Glaskugel
2. die meisten haben kleinen Heiligenschein
3. die meisten können nicht auf Deinen Rechner schauen

für alle diese Leute ist die Antwort schneller erstellt, wenn Du den relevanten Code postest.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Bild

Betrifft: AW: Existiert ein Ordner
von: Paul
Geschrieben am: 25.10.2003 17:27:51
Danke Hajo, ich glaube du hast mich falsch verstanden (oder ich mich falsch ausgedrückt, was wahrscheinlicher ist). Ich möchte keine Msgboxen!
Ich brauch nur nen code, der guckt, ob ein ordner exist. und wenn ja anweisung 1 ausführt, wenn nein anweisung 2. geht das?
Gruß, Paul
Bild

Betrifft: AW: Existiert ein Ordner
von: Hajo_Zi
Geschrieben am: 25.10.2003 17:30:14
Hallo Paul

wie schon im vorherigen Beitrag ersetze die erste Msgbox durch Anweisungen1 und die zweite durch Anweisungen2

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Bild

Betrifft: AW: Existiert ein Ordner
von: Paul
Geschrieben am: 26.10.2003 02:57:04
Danke - jetzt hats Klick gemacht!

N8, Paul
 Bild
Excel-Beispiele zum Thema " Existiert ein Ordner"
Prüfung, ob eine Symbolleiste existiert Feststellen, ob eine Datei in einem Verzeichnis existiert
Prüfung, ob Datei existiert und bei nein Meldung Prüfen, ob eine TextBox mit vorgegebenem Namen existiert
Prüfung, ob ein Laufwerk auf dem Rechner existiert Prüfen, ob ein Name im Outlook-Adressbuch existiert
Excel-Dateien eines Ordners listen Ordner eines Verzeichnisses in ListBox übernehmen
Bei Doppelklick Ordner im Explorer öffnen Dateien einer Ordnerliste in einer Tabelle zusammenstellen