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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen