19. marts 2004 - 17:19Der er
14 kommentarer og 1 løsning
FileSystemObject - slet mappe hvis den findes ?
I forbindelse med sletning af en record i min database skal jeg samtidig have slettet en mappe på min server med FileSystemObject, men hvordan er det nu lige jeg checker om mappen i det hele taget findes så jeg undgår at scriptet går i fejl hvis den ikke findes ?
set filesys = CreateObject ("Scripting.FileSystemObject") set deletefolder = filesys.GetFolder("d:\web\domaene.dk\www\mappe4") deletefolder.Delete Set deletefolder = Nothing Set filesys = Nothing
Vi her på eksperten har det med at dele de vise sten ud. Så kan du ikke bare for ordens skyld smide løsningen det kan være andre løber ind i samme problem stilling uden at finde de vise sten.
Det kan du tro jeg gerne vil thomas_yde, den kommer lige her:
set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists("d:\web\domaene.dk\www\mappe4") then set deletefolder = filesys.GetFolder("d:\web\domaene.dk\www\mappe4") deletefolder.Delete Set deletefolder = Nothing end if Set filesys = Nothing
For at lave den lidt dynamisk kan du jo altid angive mappnavn som variabel. dim folder folder = "mappe4" set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists("d:\web\domaene.dk\www\"&folder) then set deletefolder = filesys.GetFolder("d:\web\domaene.dk\www\"&folder)
folder = "mappe4" set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists("d:\web\domaene.dk\www\"&folder&"") then set deletefolder = filesys.GetFolder("d:\web\domaene.dk\www\"&folder&"")
Nej det tror jeg da ikke. Den skal jo bare smide en String. Har lidt hovedpine sidder på TDC Erhvervs Support og keder mig lidt (ingen gider ringe en fredag efter fyraften)
<% dim folder folder = request.QueryString("id") set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists("D:\web site\team-randers\billeder\"&folder&"") then set deletefolder = filesys.GetFolder("D:\web site\team-randers\billeder\"&folder&"") response.Write("The Folder D:\web site\team-randers\billeder\"&folder&" is delete") else response.Write("Mappen er væk") end if %>
kan i fortælle mig hvorfor den ikke gider at slette dem ??
tror du mangler noget som f.eks. deletefolder.Delete
<% dim folder folder = request.QueryString("id") set filesys = CreateObject ("Scripting.FileSystemObject") if filesys.FolderExists("D:\web site\team-randers\billeder\"&folder&"") then set deletefolder = filesys.GetFolder("D:\web site\team-randers\billeder\"&folder&"") deletefolder.Delete response.Write("The Folder D:\web site\team-randers\billeder\"&folder&" is delete") else response.Write("Mappen er væk") end if %>
/Goose
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
