Create Folder.....

Hej eksperter.

Jeg har lavet følgende script som gerne skulle oprette en masse mapper ud fra en database.

En mappe til hvert kundenummer, i et katalog med det rigtige land.

Er der nogen der kan fortælle mig hvorfor det ikke virker???


---------------------------------------------------

<%

Dim Conn, SQL, objRS

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database.mdb\")

SQL = \"SELECT * FROM tabel\"
set objRS = Conn.Execute(SQL)

While Not objRS.EOF

    dim fs, f, CPath
    set fs=CreateObject(\"Scripting.FileSystemObject\")
    CPath = \"E:\\mappe\\\" & objRS(\"Country\") & \"\\\" & objRS(\"CustomerID\")
    set f=fs.CreateFolder(CPath)
    set f=nothing
    set fs=nothing

objRS.MoveNext
Wend

objRS.close
Conn.close
set Conn = Nothing
%>

--------------------------------------------------