Trying to develop some different scripts, I was attempting to write a simple script that would just print out whatever files it found on the server. The code I got by snipping bits and parts from larger scripts and applying some logic to it and then rewrite it. Apperently, this logic wasn't so logical since the script won't work. I do not get an error message, it just never finishes loading (no, it does not have anything with AV to do, allready checked that). I guess the loop just never ends (infinite loops, the horror of programmers!
Anyway, here is the simple little script, hoping someone can give me comments and or working scripts that perform this small task...
Dim fso, curfold, curfiles, ffile
Set fso = CreateObject("Scripting.FileSystemObject")
Set curfold = fso.GetFolder(Server.MapPath("."))
Set curFiles = curfold.Files
For Each ffile in curFiles
Response.Write ffile.Name & "<br>"