Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Überprüfen, ob "Stammverzeichnis" vorhanden

Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 17:44:42
Denis
Hallo zusammen,
ich will eigentlich etwas ganz einfaches Abfragen, aber die Lösung scheint wohl doch nicht so einfach sein.
Ich will per VBA in einer Datei abfragen, ob sie in einem bestimmen StammVerzeichnis steht :
Abfrage Pfad geht mit :
pfad = thisworkbook.path
Ergebnis : "C:\test\download\1\2\3\..."
Nun will ich überprüfen ob die angegebene Datei im Verzeichnis C:\test\ steht, egal welche Ordnerstruktur hinter test kommt.
Das muss doch irgendwie einfach lösbar sein.
Kann mir da jemand von Euch weiter helfen.
Gruss
Denis

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:05:30
Kurt
Hi,
If Left(pfad,8)= "C:\test\" Then
msgbox "ok"
else
msgbox "nö"
end if
mfg Kurt
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:19:32
Denis
Danke Dir Kurt Dein Hinweis hat mir sehr geholfen.
Gruss
Denis
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:23:53
ede
hallo,
der pfad begint mit c:\test\! deswegen weist du noch nicht, ob die datei existiert!
gruss
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:11:17
ede
hallo denis,
teste mal nachstehenden code. er liefert dir die anzahl gefundenen files laut variable, welche du anpassen must!

Sub Anzahl_Files_Je_Ordner()
Dim strlaufwerk As String
Dim strFileName As String
'StartVerzeichnis - bitte anpassen
strlaufwerk = "c:\test\"
strFileName = "*.xls"
With Application.FileSearch
.NewSearch
.LookIn = strlaufwerk
.SearchSubFolders = True
.Filename = strFileName
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderDescending) > 0 Then
MsgBox .FoundFiles.Count 'anzeige der Anzahl gefundener strFileName
End If
End With
End Sub

gruss
Anzeige
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:20:18
Denis
Hallo Ede,
ich habe bereits die Lösung gefunden, trotzdem besten Dank für Deine Bemühungen.
Gruss
Denis
AW: Überprüfen, ob "Stammverzeichnis" vorhanden
16.08.2006 18:25:55
ede
na dann ist ja gut, wobei ich deine frage so verstanden habe, das
du prüfen willst, ob ab einem bestimmten pfad eine datei exisitiert!
gruss

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige