Opret mappe og fil

http://www.html.dk/dokumentation/vbscript/HTML/vsobjfilesystem.htm

det er kun filen

<%
Set fso = CreateObject("Scripting.FileSystemObject")

'opretter mappe:
fso.CreateFolder(pathname)

'skriv til fil:
Set a = fso.OpenTextFile(server.mappath(filename), 8, True, False)
a.write("Tekst")
a.close

Set a = Nothing
Set fso = Nothing

%>

<%
'opret fil:
Set f = fso.CreateTextFile(pathname)
f.Close
Set f= Nothing
%>

http://www.eksperten.dk/spm/236343

okay  ved i også hvordan man checkker om mappen findes

http://www.w3schools.com/asp/met_folderexists.asp

if fso.FolderExists(pathname) then
fso.CreateFolder(pathname)
end if

cht > skal det ikke være If NOT fso.FolderExists(pathname) Then...? ellers opretter den jo en mappe, hvis mappen allerede findes

ja, det var en lille smutter... det skulle være:
If NOT fso.FolderExists(pathname) then

Er dette rigtigt:

<%
'CreateObjekt
Set fso = CreateObject("Scripting.FileSystemObject")

'Se om mappen findes
if fso.FolderExists(fx "wap") then
fso.CreateFolder(fx "et andet navn")
end if

'Opret mappe
fso.CreateFolder(Fx "wap")

'Opret fil
Set a = fso.OpenTextFile(fx "http://www.espeholt.dk/wap/index.wml", 8, True, False)
a.write("Tekst")
a.write("noget mere")
a.close
Set a = Nothing


'Lukker Objekt
fso.close
set fso = nothing
%>

'Se om mappen findes
if not fso.FolderExists(fx "wap") then
fso.CreateFolder(fx "wap")
end if

Set fso = CreateObject("Scripting.FileSystemObject")
skal være
Set fso = Server.CreateObject("Scripting.FileSystemObject")

ok, tak alle sammen