sub getFSO(str)
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath(str))
end sub
call getFSO("/produkter/blaha/mapp1/")
for each file in objFolder.Files [b]<---- HÄR[/b]
response.write file.name
next
call getFSO("/produkter/blaha/mapp2/")
for each file in objFolder.Files
response.write file.name
next
Jag försöker alltså starta FSO:n med olika sökväg ett par olika gånger, men det failar på första raden..
Anropet återkommer givetvis längre ner, alla de gånger jag vill "ändra sökväg" så att säga.
Function getFSO(str)
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.mappath(str))
Set getFSO = objFolder
end Function
Set oFolder = getFSO("("/produkter/blaha/mapp1/")
For Each File in oFolder.Files
Response.Write File.Name & "<BR>"
Next
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
[Redigerat av PatrikB den 07 feb 2002]
255 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e