suchen von Pfaden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: suchen von Pfaden von: Uwe
Geschrieben am: 10.02.2005 15:11:34

Hallo!

Ich habe folgendes Problem und hoffe, dass ihr mir helfen könnt.

Ich habe zwei Programme, die miteinander verknüpft sind. Es werden Daten im- und exportiert. Bis jetzt waren diese Programme in einem Laufwerk abgespeichert, so dass ich einen festen Pfad angeben konnte (z.B. i:\test\Name.xls und i:\test\Name2.xls

Mittlerweile haben mehrere Personen auf die Programme zugriff. Der Pfad, bis auf die Laufwerksbezeichnung bleibt der gleiche. Die Laufwerksbezeichnung ist jedoch von Benutzer zu Benutzer unterschiedlich (1. User: i:\test\Name.xls und i:\test\Name2.xls ; 2. User: j:\test\Name.xls und j:\test\Name2.xls ; 3. User: k:\test\Name.xls und k:\test\Name2.xls ; u.s.w..

Inwiefern gibt es eine Möglichleit, bei Vorgabe des Pfades \test\Name.xls und \test\Name2.xls in allen Laufwerken nach diesem Pfad zu suchen und anschließend den Im- und Export durchzuführen (der Pfad ist bei jedem User nur 1x vorhanden).

Ich hoffe, ich könnt mir diesbezüglich helfen.

Vielen Dank.

Gruß
Uwe

Bild


Betrifft: AW: suchen von Pfaden von: alex
Geschrieben am: 10.02.2005 15:38:32

Hallo
eine Möglichkeit wäre natürlich eine Handeingabe des Pfades.
könnte man mit application.getopenfilename machen

oder einfach eine Liste mit allen Laufwerksbuchstaben hinterlegen,
hab mal ein test makro geschrieben

Sub test()
Dim lauf(5) As String
'test laufwerksbuchstaben, müssen nicht auf allen rechnern sein
lauf(1) = "g"
lauf(2) = "r"
lauf(3) = "t"
lauf(4) = "h"
lauf(5) = "c"
pfad = ":\Test\"
dat = "Name.xls"
For i = 1 To 5
On Error GoTo marke
If Dir(lauf(i) & pfad & dat) <> "" Then MsgBox "Datei gefunden"
marke:
Next
End Sub



Bild


Betrifft: AW: suchen von Pfaden von: Uwe
Geschrieben am: 10.02.2005 16:09:42

Hallo Alex,

vielen Dank für die rasche Antwort. Leider kann ich dir nicht so rasch eine Rückantwort geben, ob es in den Programmen funktioniert, da ich diese übers Wochenende erst anpassen kann.

Sobald ich es integriert habe, sag ich dir nochmal bescheid.

Trotzdem vielen Dank und ich lass was von mir hören.

Gruß
Uwe


Bild


Betrifft: AW: suchen von Pfaden von: Uwe
Geschrieben am: 12.02.2005 23:53:13

Hallo Alex,

wollt nur bescheid geben, dass es geklappt hat.

Vielen Dank nochmal.

Gruß
Uwe


 Bild

Beiträge aus den Excel-Beispielen zum Thema "suchen von Pfaden"