Ordner durchsuchen ob Datei vorhanden?

Question

Hallo wer kann mir helfen,
ich möchte wissen, bevor ich eine Arbeitsmappe ausfülle ob es schon eine mit diesen Namen gibt?
Also ich trage in G5 den Kunden ein(Ordnername),
dann in C6 die Artikelnummer(Dateiname).
Jetzt soll mir eine Msbox sagen, wenn Datei vorhanden:
Datei vorhanden!
soll Datei geöffnet werden Ja/ Nein
Der Pfad unter der die Mappen gespeichert wird lautet:
K:\"Kunde(G5)"\"Artikelnummer(c6)".xls.
Ich hoffe das ich alles geschrieben habe um mein Problem zu verstehen.
Ich weis, dass mir jemand helfen kann,
also schon mal danke
gruß Ulle

Answer 1

Hallo Ulle,

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

Gruß Hajo

Answer 2

Hallo Hajo,
danke für die schnelle Antwort, aber bis ich verstanden habe was du mir sagen willst habe ich graue Haare.
Ich bin wirklich Laie auf dem Gebiet VBA.
Gibt es den kein verständlicher Weg mit zwei Variablen (G5-verz und C6 dname) in LW K:\ eine Datei zu suchen.
Danke
Ulle

Answer 3

Halo Ulle,

ersetze meinen Prüfwert durch
" K:\" & Range("G5") & "\" & Range("c6") & ".xls.

Gruß Hajo

Answer 4

Hallo,
habe alles ersetz was ich glaubte.
Es passiert nichts, nicht mal ne Fehlermeldung, die ich so liebe!
Aber ich gehe davon aus das ich den Fehler mach.
Muss das eigentlich sein, Phad vorhanden, Datei vorhanden und Ordner vorhanden?
Für mich ist das ganzschön kompliziert.
Noch was, den Ordner gibt es immer!
Gruß
Ulle

Answer 5

Hallo Ule,

für Dich ist doch nur eins der beiden Makros
Sub Datei_vorhanden()
oder
Sub Datei_vorhanden
intessant.
Ob Du den Code korrekt geändert hast sehe ich nicht bzw. ich lehne es ab nachzuschauen.

Gruß Hajo

Answer 6

Hallo Hajo,
danke für deine Hilfe.
schönen Sonntag noch
Gruß Ulle