Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Pfad auf Richtigkeit überprüfen?

Pfad auf Richtigkeit überprüfen?
29.12.2003 15:25:30
Andre
Hi,

weiß jemand, wie ich über einen Code überprüfen kann, ob der in einer Textbox angegebene Pfad überhaupt existiert?

Gruß Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad auf Richtigkeit überprüfen?
29.12.2003 15:38:06
Hajo_Zi
Hallo Andre


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


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

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Pfad auf Richtigkeit überprüfen?
29.12.2003 15:39:15
PeterA
Hallo Andre
Das sollte dir weiterhelfen.

Ciao Peter

Dim fs As Object
Dim Prüfen_Pfad As String

Prüfen_Pfad = "C:\TEMP\"
Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.folderexists(Prüfen_Pfad) Then
On Error Resume Next
MkDir Prüfen_Pfad
On Error GoTo 0
End If
AW: Pfad auf Richtigkeit überprüfen?
29.12.2003 15:54:34
ChrisL
Hi Peter

Bin Heute zufällig über diesen Code gestolpert...


Sub MultiMkDir(sPath As String)
Dim iCounter As Byte
Dim sTxt As String
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
iCounter = 4
Do While InStr(iCounter, sPath, "\") > 0
sTxt = Left(sPath, InStr(iCounter, sPath, "\") - 1)
iCounter = InStr(iCounter, sPath, "\") + 1
On Error GoTo ErrorHandler
MkDir sTxt
Loop
Exit Sub
ErrorHandler:
If Err = 75 Then
Beep
MsgBox "Verzeichnis besteht schon!"
End If
End Sub


http://www.excel-center.de/forum/read.php?f=1&i=52717&t=52717

Der Code erstellt allfällige Unterverzeichnisse ebenfalls.

Gruss
Chris
Anzeige
Danke euch beiden. o.T.
29.12.2003 16:13:01
Andre

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige