Directory durchsuchen

21/04/2008 - 21:24 von Hans Schoeni | Report spam
Hallo NG,
Word2003, WinXP SP2

ich möchte auf dem Laufwerk C: vom Root bis zum Speicherort der Vorlage
jedes Directory und Unterdirectory nach einer bestimmten Datei
durchsuchen, um diese dann in die Kopfzeile des mit der Vorlage
erzeugten Dokuments einfügen. Das Einfügen weiss ich zwar, wies geht,
aber mit dem Durchsuchen der Directories bin ich noch nicht auf eine
lauffàhige Lösung gestossen.

Ich bin froh um jeden Hinweis.

Vielen Dank und Gruss aus der Schweiz: Hans
 

Lesen sie die antworten

#1 Wolfram Jahn
22/04/2008 - 00:14 | Warnen spam
Hans Schoeni schrieb:


Ich bin froh um jeden Hinweis.



Falls es dies ist: sei froh.

-
' benötigter Verweis: Microsoft Scripting Runtime

Sub t(fn As String)
Dim fso As New Scripting.FileSystemObject
Dim pthAry
Dim i As Integer
Dim pth As String, myFn As String

pthAry = Split(ActiveDocument.AttachedTemplate.Path, "\")
pth = pthAry(0) & "\"

For i = 1 To UBound(pthAry)
myFn = fso.BuildPath(pth, fn)
If fso.FileExists(myFn) Then
Debug.Print "Jetzt einfügen: " & myFn
Exit Sub
End If
pth = fso.BuildPath(pth, pthAry(i))
Next i

Debug.Print "Nicht gefunden"

End Sub

-
Ausführung:

t("dotNetFx.log")
Jetzt einfügen: D:\Dokumente und Einstellungen\Wolfram\dotNetFx.log

t("dotNix.log")
Nicht gefunden


-

Wolfram

Ähnliche fragen