25. februar 2005 - 13:29Der er
19 kommentarer og 1 løsning
DeleteFolder, men findes ik!
Nu har jeg prøvet 100 vis af antal at slette en mappe på min side med FileSystemObject (Deletefolder) funktionen. Men den skriver altid det samme, mappen kan ikke findes, hvad gør jeg forkert?
<% dim folder folder = "test" set filesys = CreateObject ("Scripting.FileSystemObject")
if filesys.FolderExists(""&folder) then
set deletefolder = filesys.GetFolder(""&folder) Response.Write ("Mappen er slettet!")
else
Response.Write ("Mappen findes ikke!")
set folder = nothing %>
Jeg har oprettet en mappe med navnet test i samme sti som filen ligger i.
<% dim folder folder = "test" set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists(server.mappath(folder)) then set deletefolder = filesys.GetFolder(folder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
<% dim folder strfolder = ServerMappath("test") set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists strfolder then set deletefolder = filesys.GetFolder(strfolder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
server.mappath("test") Når man bruger "" i denne funktion er det for en fastdefineret mappe.
folder = "test" server.mappath(folder) Denne er dynamisk da den kigger på indholdet af variablen. Dette kunne fx. også være et recordset: server.mappath(rs("mappePaaServer"))
<% dim folder strfolder = ServerMappath("test") set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FolderExists(strfolder) then set deletefolder = filesys.GetFolder(strfolder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
<% folder = "test" strfolder = Server.Mappath(folder) set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FolderExists(strfolder) then set deletefolder = filesys.GetFolder(strfolder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
hmm efter og havde prøvet lidt forskelligt for jeg en anden fejl nu:
Microsoft VBScript runtime error '800a004c'
Path not found
-----------------------------------
<% dim folder folder = "test" set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists(server.mappath(folder)) then set deletefolder = filesys.GetFolder(folder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
pkt 1: det hedder server.mappath og ikke servermappath.. bemærk "." :p pkt 2: Husk altid () når du referet pkt 3: Pga. at jeg smider det i variabler er bare fordi jeg er miljøskadet... ;)
Nej... den sletter ikke for det har du jo ikke fortalt at den skal :p
<% folder = "test" strfolder = Server.Mappath(folder) set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FolderExists(strfolder) then set delmappe = filesys.GetFolder(strfolder) delmappe.delete Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
Men den sletter stadig ikke, men nu kommer der ingen fejl :D
<% folder = "bla" strfolder = Server.Mappath(folder) set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FolderExists(strfolder) then set deletefolder = filesys.GetFolder(strfolder) Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") set folder = nothing end if %>
<% folder = "test" strfolder = Server.Mappath(folder) set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FolderExists(strfolder) then set delmappe = filesys.GetFolder(strfolder) delmappe.delete Response.Write ("Mappen er slettet!") else Response.Write ("Mappen findes ikke!") end if set filesys = nothing %>
Jep så var den der, mange tak. læg et svar :D Ja det er klart nok at der manglede delmappe.delete, det er altid så simplet når m,an for det forklaret men og finde løsningen selv kan ofte være svært når man ikke har såp meget erfaring ;)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
