Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.10.2025 16:19:53
Explodierende ActiveX-Steuerelemente
02.10.2025 15:16:56
Tabelle mit mehrere Worksheet_Change(ByVal Target As Range)
02.10.2025 10:43:57
fortlaufende Werte
02.10.2025 10:42:49
mehrere Tabellenblätter vergleichen + Gemeinsamkeiten finden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner vorhanden

Forumthread: Ordner vorhanden

Ordner vorhanden
31.03.2014 08:47:01
Pepi
Hallo zusammen
Ich möchte wissen, ob ein Ornder vorhanden ist oder nicht
sTmp = Dir("C:\Tmp", vbDirectory) ' gibt den Pfad zurück, wenn vorhanden
sTmp = Dir("C:\Tmp\", vbDirectory) ' gibt einen "." zurück, wenn Pfad vorhanden
stmp = Dir("C:\Tmp\x.xls", vbdirectory) ' gibt x.xls zurück, wenn Pfad und Datei vorhanden
Also, wenn sTmp "" bin ich nicht sicher obe es ein Pfad oder eine Datei ist!!
Auch die Version mit Chdir("C:\Tmp") um zu prüfen ob Pfad vorhanden, mit 'on error goto ...' finde ich nicht gerade eine elegante Lösung.
Ich kann mir nicht vorstellen, dass VBA da nicht etwas besseres bietet - wer weiss was?
vielen Dank
Pepi

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das geht z. B. mit der...
31.03.2014 09:15:07
Case
Hallo, :-)
... API-Funktion "PathFileExists" - damit kannst Du testen, ob Dateien oder Ordner vorhanden sind:
Option Explicit
Private Declare Function PathFileExists Lib "shlwapi.dll" _
Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Const strTMP As String = "C:\Temp\" ' Anpassen!!!!!
Public Sub Main()
If CBool(PathFileExists(strTMP)) Then
MsgBox "Vorhanden!"
Else
MsgBox "Nicht vorhanden!"
End If
End Sub
Servus
Case

Anzeige
per FilesystemObject
31.03.2014 09:21:43
Rudi
Hallo, 
Sub aaa()
Dim ofs As Object
Set ofs = CreateObject("Scripting.filesystemobject")
If ofs.folderexists("c:\test") Then
MsgBox "gibt es"
Else
MsgBox "gibt es nicht"
End If
End Sub

Gruß
Rudi

AW: per FilesystemObject
04.04.2014 13:05:28
Pepi
Hallo Rudi und Case
Ganz herzlichen Dank für die beiden Tipps - war ein paar Tage weg, deshalb konnte ich nicht früher antworten.
Aber deshalb nicht weniger herzlich!!
Pepi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige