Hi,
folgende Funktion m�chte mir einfach nix zur�ck geben, wieso ??? Ich bin f�r
jeden Tipp dankbar ;)
---------------------[SNIPP]----------------------------------------------
Function search_file(byVal suchbegriff,byVal dir)
Set verzeichnisse = fso.GetFolder(dir)
Set unterverzeichnisse = verzeichnisse.SubFolders
Set files = verzeichnisse.Files
if files.count > 0 then
For each file in Files
if trim(File.Name) = trim(suchbegriff) then
WScript.Echo dir
search_file = dir
Exit function
End if
Next
End if
If unterverzeichnisse.Count > 0 then
For Each unter_unterverzeichniss In unterverzeichnisse
unterverzeichnisse_pfad = dir & unter_unterverzeichniss.Name &
"\"
i = i + 1
If i < unterverzeichnisse.Count then
Call search_file(suchbegriff,unterverzeichnisse_pfad)
else
Call search_file(suchbegriff,unterverzeichnisse_pfad)
End if
Next
End If
End function
---------------------[/SNIPP]----------------------------------------------
mfg
Kai
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
