gibt es eine Möglichkeit mit VBA ein Verzeichniss prüfen zu lassen ob es da ist?
Ich möchte es aber nicht erstellen.
Einfach nur prüfen ob z.B. R:\system\test\ vorhanden ist.
Vielen Dank
marspoki
Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\Almanach.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\", vbDirectory) "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
' MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
Set Fso = Nothing
End Sub
Sub Verzeichnis_da()
Dim cFile As String
Dim ValidDir as Boolean
'Check if drive is available:
Err.Clear
On Error Resume Next
cFile = Dir("R:\system\test")
If Err.Number = 0 Then ValidDir = True
Err.Clear
If ValidDir = True then Msgbox("Verzeichnis vorhanden") else Msgbox ("gibts nicht!")
End Sub
Geht sicherlich eleganter, funzt aber einwandfrei!