Avatar billede nogetfx Nybegynder
28. september 2002 - 17:32 Der er 15 kommentarer og
1 løsning

Tjekke om mappe findes

Jeg skal have oprette en ny mappe,men selvfølgeligkun hvis den ikke er oprettet...

    ThumPath = "..\gall\" & StrCat & "\thum"
    FolderPath = "..\gall\" & StrCat
   
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                           
        Set fso = CreateObject("Scripting.FileSystemObject")

      If Not fso.FolderExists(Server.MapPath("ThumPath")) = "true" Then 'Her erproblemet..!
        Set UL = CreateObject("Scripting.FileSystemObject")
        UL.CreateFolder(Server.MapPath(ThumPath))
    End If

/Lars
Avatar billede hells Nybegynder
28. september 2002 - 17:37 #1
ThumPath = "..\gall\" & StrCat & "\thum"
FolderPath = "..\gall\" & StrCat

Set fso = Server.CreateObject("Scripting.FileSystemObject")

If NOT fso.FolderExists(Server.MapPath(ThumPath)) Then
    fso.CreateFolder(Server.MapPath(ThumPath))
End If
Avatar billede e-skape Nybegynder
28. september 2002 - 17:38 #2
Hvorfor har du tre FS-objecter? Og hvorfor er der ikke "Server." foran i linie 6

Nok bare mig der ikke kan se systemet, men hvad skal du da med alle de FSO'er? En er da vel nok...
Avatar billede e-skape Nybegynder
28. september 2002 - 17:39 #3
Hmm... Jah, det ku jeg så oss ha gjort... hehe. Blev bare forvirret over alle dine FSO'er...
Avatar billede hells Nybegynder
28. september 2002 - 17:40 #4
e-skape det undrede jeg mig nemlig også over :)
Avatar billede e-skape Nybegynder
28. september 2002 - 17:41 #5
Kan ikke lige huske hvorfor det er så vigtigt, men du skal huske at:

Dim ThumPath, FolderPath

inden du bruger dem.
Vist noget med hukommelsen
Avatar billede nogetfx Nybegynder
28. september 2002 - 17:47 #6
Kanon! Hells kom med et svar...

Tja, hvorfor jeg har 3 af dem..? Fordi jeg copy/paster.. Jeg tror den er en første er en rest fra alle de forsøg jeg har haft. Og har ikke ryddet ordentlig op...

e-skape: har dimmet...
Avatar billede hells Nybegynder
28. september 2002 - 17:48 #7
svar
Avatar billede e-skape Nybegynder
28. september 2002 - 17:50 #8
En god ide, lige at rydde op inden man tester :) hehe
Og hvis du copy/paster, hvorfor er der så ikke "server." foran CreateObject("..?
Avatar billede nogetfx Nybegynder
28. september 2002 - 17:54 #9
Ja.. hehe
Fordi der jeg copy/pastede det fra, var foruden.. men det har da funket...
Avatar billede e-skape Nybegynder
28. september 2002 - 18:15 #10
Hvad er det så, der var problemet? som jeg ser det, har du ikke en FSO til at tjekke om mappen findes
Din linie:
If Not fso.FolderExists(S...

I hells eksempel/svar kan du se, at han kun laver en FSO i starten, som han bruger til både at checke for mappen, og til at lave en ny hvis mappen ikke findes

Husk at lukke FSO en igen.
Kan ikke lige huske hvordan, og hvad det er der skal lukkes, men jeg skyder på, at du er igang med noget tutorial eller noget. Du lukker sikkert også, jeg kan nok bare ikke se det, i den stump du har smidt ind :)

MVH e-SKape
Avatar billede nogetfx Nybegynder
28. september 2002 - 18:47 #11
Jeg havde da den her:


      If Not fso.FolderExists(Server.MapPath("ThumPath")) = "true"

Ifølge VBScript V5.5 Documentation skulle FolderExists mulde true/false...
Avatar billede e-skape Nybegynder
28. september 2002 - 18:49 #12
YesYes...
Men du havde ikke nogen fs-object der hed fso eftersom
Set fso = CreateObject("Scripting.FileSystemObject")
er forkert (skulle jeg da mene, kan bare ikke forstå, hvorfor den ikke har brokket sig...)
Avatar billede nogetfx Nybegynder
28. september 2002 - 19:00 #13
Øhh kig på 4.linie...
Avatar billede nogetfx Nybegynder
28. september 2002 - 19:01 #14
Fra VBScript V5.5 Documentation :

FolderExists Method
Returns True if a specified folder exists; False if it does not.

object.FolderExists(folderspec)

Arguments
object

Required. Always the name of a FileSystemObject.

folderspec

Required. The name of the folder whose existence is to be determined. A complete path specification (either absolute or relative) must be provided if the folder isn't expected to exist in the current folder.

Remarks
The following example illustrates use of the FolderExists method:

Function ReportFolderStatus(fldr)
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FolderExists(fldr)) Then
      msg = fldr & " exists."
  Else
      msg = fldr & " doesn't exist."
  End If
  ReportFolderStatus = msg
End Function
Avatar billede e-skape Nybegynder
29. september 2002 - 11:30 #15
Hmm.. Damn... Jeg må vidst kigge lidt mere i min dokumentation... hehe

Men er den så ikke forkert i:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Avatar billede nogetfx Nybegynder
29. september 2002 - 11:47 #16
I rest my case... hehe

Jeg tror uden at vide med sikkerhed, at denne er sjuske måden:
  Set fso = CreateObject("Scripting.FileSystemObject")

Taget fra en support-side:

Det er langt det hurtigste at kalde et Request fuldt ud, som f.eks. Request.QueryString("navn"). Det er dog også muligt at undlade at angive en parameter, og man kan også vælge kun at kalde Request("navn"). Gør man det, vil serveren søge i følgende prioriterede rækkefølge og vælge den første den finder:
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