CreateFolder
argh hvorfor får jeg hele tiden den her fejl?`Microsoft VBScript runtime (0x800A003A)
File already exists
/stream/opret.asp, line 26
der er ingen filer eller folders i forvejen
koden kommer her:
Set FileSystemDir = CreateObject("Scripting.FileSystemObject")
FileSystemDir.CreateFolder "C:\Inetpub\db\stream\" & dato & "" <-- line 26
Set FileSystemFile = CreateObject("Scripting.FileSystemObject")
FileSystemFile.CreateTextFile "C:\Inetpub\db\stream\" & dato & "\"&i&".asx"
Set Filesystem = CreateObject("Scripting.FileSystemObject")
Set FilesystemFileContext = Filesystem.OpenTextFile("C:\Inetpub\db\stream\" & dato & "\"&i&".asx", 8, true)
FilesystemFileContext.WriteLine ("<ASX VERSION='3.0' PREVIEWMODE='NO' >")
FilesystemFileContext.WriteLine ("<ENTRY>")
FilesystemFileContext.WriteLine ("<TITLE>Example Clip</TITLE>")
FilesystemFileContext.WriteLine ("<REF HREF = 'mms://129.142.131.36/rejsegalleriet/fantacy/") & dato & ("/250.wmv' />")
FilesystemFileContext.WriteLine ("<STARTTIME VALUE='") & starttid & ("' />")
FilesystemFileContext.WriteLine ("<DURATION VALUE='") & duration & ("' />")
FilesystemFileContext.WriteLine ("<ENTRY>")
FilesystemFileContext.WriteLine ("</ASX>")
FilesystemFileContext.Close
Set FilesystemFileContext = Nothing
Set FileSystemFile = Nothing
