Fso, Skapa en ny mapp

6 svar · 297 visningar · startad av jimpa 1 sep. 2002

jimpaMedlem sedan jan. 2001361 inlägg

Frågan1 sep. 2002 11:12#1

Hej
Denna kod skapar en mapp och fungerar hur bra som helst om man vill skapa mappen under Server.mappath
Men hur blir om jag skapa min nya mapp i en undermapp?
Typ:
(Server.mappath(MIN UNDERMAPP(Session("U_ID"))))
Hur blir min kod då ex. ovan funkar inte.

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
set fso = server.createobject("scripting.filesystemobject")
   
if fso.folderexists(server.mappath(Session("U_ID"))) = false then
   fso.createfolder(server.mappath(Session("U_ID")))
   
Set MyFile = ScriptObject.CreateTextFile(server.mappath(Session("U_ID") & "\" &  filename))
else
   response.write " ERROR Mappen finns redan. Skapar ingen fil."
end if
set fso = nothing

Mvh Jimpa

JosefMedlem sedan mars 20023 561 inlägg

1 sep. 2002 12:57#2

Något felmeddelande???

OveRRidEMedlem sedan feb. 200112 078 inlägg

1 sep. 2002 12:58#3

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
set fso = server.createobject("scripting.filesystemobject")
   
if fso.folderexists(server.mappath("mapp\" & Session("U_ID"))) = false then
   fso.createfolder(server.mappath("mapp\" & Session("U_ID")))
   
Set MyFile = ScriptObject.CreateTextFile(server.mappath("mapp\" & Session("U_ID") & "\" &  filename))
else
   response.write " ERROR Mappen finns redan. Skapar ingen fil."
end if
set fso = nothing

jimpaMedlem sedan jan. 2001361 inlägg

1 sep. 2002 14:22#4

Jepp det funka
Tackar :)

Nu till nästa problem x(

Om jag vill ta bort fil/filer som ligger i en mapp kan man ju göra typ så här.

    Folder = Session("MM_Username") 
    'Response.Write (Folder)
    
    
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFile(Server.MapPath("Xuser\" & Folder & "\" & [B]ALLA FILER[/B]))

Måste man veta fil-namnet eller finns det nåt sätt, så att man kan radera den fil/filer som ligger i just den mappen?

Mvh Jimpa

LarsGMedlem sedan dec. 200012 464 inlägg

1 sep. 2002 14:33#5

Enklast är väl att ta bort hela mappen och sedan skapa om den.

Om du inte vill det så kan du använda metiden getFolder för att skapa ett folderobjekt. I en folder finns en samling som innehåller alla filer

set fso = server.createobject("scripting.filesystemobject")
set f = fso.getfolder("namn")
for each file in f.files
     fso.deletefile(file.name)
next

ungefär så tror jag.

jimpaMedlem sedan jan. 2001361 inlägg

1 sep. 2002 15:01#6

Jepp det funka :D då jag ändra till typ:

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set f = FSO.GetFolder(Server.MapPath("Xuser\" & Folder))
    for each file in f.files
     FSO.DeleteFile(Server.MapPath("Xuser\" & Folder & "\" & file.name))
next

Tack o Bock

jimpaMedlem sedan jan. 2001361 inlägg

1 sep. 2002 15:06#7

Förresten,
är det någon som vet om det finns någon bra guide "helst på svenska" där man kan
läsa om hur dessa FileSystemObjekt ?

/Jimpa