Avatar billede curriculum Nybegynder
12. august 2003 - 23:50 Der er 10 kommentarer og
1 løsning

Fejl i FileSystemObject

Jeg har kunnet køre FileSystemObject på min IIS 5.0, men nu vil den bare ikke.. den kommer i en eller anden deadlock.
Jeg tænke at bruge kode som denne:
<%
Dim fso, rootFolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.CreateFolder(Server.Mappath("images/160") )
CreateServerFolder = rootFolder.Path
%>

Kan nogen løse denne (nok lidt lette) opgave ??
Avatar billede erikjacobsen Ekspert
12. august 2003 - 23:53 #1
Muligvis skal du først oprette "images" og derefter "images/160"
Avatar billede curriculum Nybegynder
12. august 2003 - 23:56 #2
Meningen er at serveren selv skal kunne oprette foldere.. also mit "/160" er selvfølgelig en dynamisk dir, som ændres efter antal oprettede brugere...
Avatar billede curriculum Nybegynder
12. august 2003 - 23:57 #3
og "images" er i forvejen oprettet
Avatar billede squashguy Nybegynder
13. august 2003 - 00:00 #4
har iis skriveadgang til mappen?
Avatar billede curriculum Nybegynder
13. august 2003 - 00:07 #5
jep der er skriveadgang til images via IIS'en, der er noget andet der er galt..
har i nogen kode i bruger til dagligt..
Avatar billede eagleeye Praktikant
13. august 2003 - 00:10 #6
Hvis du har Norton Antivirus kan den også får FSO fuiktionerne til at hænge.
Så skal du i Norton Slå en checkbox, noget med "Activer Scripting" frs. Genstarte PC'en er vist nok nødvendig.
Avatar billede curriculum Nybegynder
13. august 2003 - 00:25 #7
Min Norton har enabled scripting..
så snart compileren ser "CreateObject("Scripting.FileSystemObject")" kikser den bare..
Avatar billede eagleeye Praktikant
13. august 2003 - 00:27 #8
Den skal slåes fra så den ikke har enabled scripting.
Avatar billede curriculum Nybegynder
13. august 2003 - 00:29 #9
oki.. prøver lige..
Avatar billede eagleeye Praktikant
13. august 2003 - 00:37 #10
Men det er også rigtigt hvad  erikjacobsen  skriver du er nød til at oprette folderne en for en. Her et eks på et loop som gøre det:


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

nyefolder = "images/160"
if right(nyefolder,1)="/" then nyefolder = left(nyefolder,len(nyefolder)-1)
nyfolderArr = Split(nyefolder, "/")

for i = 0 to ubound(nyfolderArr)
  sti = sti & nyfolderArr(i) & "/"
  if sti <> "/" then
    if fso.FolderExists(Server.Mappath(sti)) = false then
      Set rootFolder = fso.CreateFolder(Server.Mappath(sti)) 
      CreateServerFolder = rootFolder.Path
    end if
  end if
next

Response.write CreateServerFolder
%>
Avatar billede curriculum Nybegynder
13. august 2003 - 01:41 #11
det var den der med aktiver scripting som var problemet, så eagleeye, du får pointene.. tak for svaret.. FSO har fungeret i mere end 3 år uden dette problem.. så ved jeg det nu.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester