ASP - VBSCRIPT - CreateFolder in Loop aus Datenbankeinträgen

[kettenschutz]

Guten Morgen Rolf, meine RÜckemldung hat sich leider etwas verzögert. Aber besser spät als nie ;)

Zunächst muss angemerkt werden, dass C:\Test nur ein Beispiel ist. Die Daten sollen bestenfalls auf einem Netzlaufwerk eines anderen Servers bereitgestellt werden. Daher auch fie file:/// Verlinkung. Sollte ein Anlegen der Pfade auf dem Webserver selbst notwendig sein, wäre das aber auch machbar. Ich habe nun folgenden Code eingfügt :

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
<%
Dim strFolder = "file:///PFAD_ZUM_NETZLAUFWERK" + Recordset1.Fields.Item("Kurzbezeichnung").Value + "." + Recordset1.Fields.Item("Ort").Value
Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If
%>

somit habe ich deinen Vorschlag zur Variable übernommen. (Und tatsächlich wird jetzt zumindest auf notepad ebene korrekt interpretiert) Diese Variable sollte über If Not oFSO.FolderExists(strFolder) Then oFSO.CreateFolder strFolder auf existens geprüft werden, und im NOT fall der ORdner erstellt werden.

Und, Ergebnis? Fehler 500 ...