Nye problemer med GetFolder

Jeg får fejlen "Error: Object required: 'WScript'", linie 8

sTemp = WScript.ScriptFullName
sScriptPath = Left(sTemp, InStrRev(sTemp, "\")-1)

MsgBox sScriptPath

eller

http://www.devguru.com/technologies/wsh/quickref/wscript_Path.html

//>Rune

medions...sig mig, hvilke af de 2 spørgsmål er det, du besvarer?

Jeg er ved at blive lidt forvirret nu :( Jeg har fundet ud af at lige så snart den kommer til

Set FilSystem=CreateObject("Scripting.FileSystemObject")

stopper den af en eller anden grund og udfører ikke resten af dokumentet, derfor kommer der ingen MsgBoxes.

Men hvorfor gør den nu det? Der skal dels siges, at jeg IKKE vil programmere det med ASP, fordi det skal bruges til en lokal computer, hvor hverken PWS eller IIS er installeret. Desuden skal det siges, at filendelsen naturligt nok er .html og ikke .vbs. Men de 2 ting burde vel ikke være et problem...eller?

Det er præcis dit problem. Du har ikke adgang til WScript-objektet fra en HTML-fil.

Jeg gætter på at du vil lave et eller andet billede-galleri der kan køre i en browser, så hvis jeg var dig ville jeg enten:

1) installere PWS/IIS og lave det i ASP (den lette løsning), eller
2) kode et VBScript, der kan løbe en given folder igennem for fx jpg's og så generere de nødvendige HTML-filer (den lidt sværere)

Okay...grunden til at jeg bruger WScript er at jeg fik at vide, at jeg skulle bruge det for at få den mappe, som min HTML fil kører fra...men kender du nogle andre måder at gøre det med VBScript?

window.location.href giver dig den fulde sti+filnavn (URL encoded og præfikset med file:/// hvis det er en lokal fil).

Men er det ikke JavaScript?

Her er en URLDecode-funktion lige til at paste ind i din <SCRIPT>-blok:

Function URLDecode(ByVal What)
'URL decode Function
'2001 Antonin Foller, PSTRUH Software, http://www.pstruh.cz
  Dim Pos, pPos

  'replace + To Space
  What = Replace(What, "+", " ")

  on error resume Next
  Dim Stream: Set Stream = CreateObject("ADODB.Stream")
  If err = 0 Then 'URLDecode using ADODB.Stream, If possible
    on error goto 0
    Stream.Type = 2 'String
    Stream.Open

    'replace all %XX To character
    Pos = InStr(1, What, "%")
    pPos = 1
    Do While Pos > 0
      Stream.WriteText Mid(What, pPos, Pos - pPos) + _
        Chr(CLng("&H" & Mid(What, Pos + 1, 2)))
      pPos = Pos + 3
      Pos = InStr(pPos, What, "%")
    Loop
    Stream.WriteText Mid(What, pPos)

    'Read the text stream
    Stream.Position = 0
    URLDecode = Stream.ReadText

    'Free resources
    Stream.Close
  Else 'URL decode using string concentation
    on error goto 0
    'UfUf, this is a little slow method.
    'Do Not use it For data length over 100k
    Pos = InStr(1, What, "%")
    Do While Pos>0
      What = Left(What, Pos-1) + _
        Chr(Clng("&H" & Mid(What, Pos+1, 2))) + _
        Mid(What, Pos+3)
      Pos = InStr(Pos+1, What, "%")
    Loop
    URLDecode = What
  End If
End Function

Så lykkedes det faktisk:

Dim FilSystem, Mappe, Fil
Set FilSystem=CreateObject("Scripting.FileSystemObject")

sPath = URLDecode(window.location.href)
sPath = Left(sPath, InStrRev(sPath, "/")-1)
If LCase(Left(sPath, 8)) = "file:///" Then
  sPath = Right(sPath, Len(sPath)-8)
End If

MsgBox sPath

Set Mappe=FilSystem.GetFolder(sPath)
MsgBox(Mappe.Name)

Men er window.location.href ikke JavaScript som sagt?

Husk at URLDecode-funktionen skal med... ;-)

window.location.href virker også fra client-side VBScript

Hmmm...jeg forstår intet...jeg har også fundet ud af at document.write virker i VBScript, men er de to ting da ikke JavaScript eller hvilket sprog er de?

document er betegnelsen for HTML-dokumentet i IE's objekt-model (og Mozilla, Opera m.fl.). Hvorvidt du bruger javascript eller VBScript til at 'kalde' dette objekt's metoder er for så vidt ligegyldigt.

Write er en alm. VB-metode (fx Response.Write), så det forklarer hvorfor document.Write virker i client-side VBScript.

Ville document.writeln så også virke under VBScript?

Umiddelbart ville jeg svare nej, men en lille test viser at det faktisk virker. Måske IE også tillader javascript-metoder selvom LANGUAGE er sat til VBScript. Beats me...

Hmmm...okay...well...jeg kigger lige på det hele :) Men er der andre måder, hvorpå man kan få den mappe, som ens HTML fil ligger i? Det gode ved WScript.Path er jo, at den kun returnerer mappen, og det er den jeg skal bruge...ikke filnavnet, ikke file:/// så hvis du kender en anden metode, ville det være rart :)

Men du siger, at jeg ikke har adgang til WScript objektet...men det forklarer vel ikke hvorfor den stopper ved linjen Set FilSystem=CreateObject("Scripting.FileSystemObject")?

storbytossen> Du kan abruge document.write , ikke document.writeln!

//>Rune

medions> Jeg har prøvet med både write og writeln, og de virker faktisk begge - selvom language i script-blokken er sat til VBScript. Lidt underligt...

storbytossen> Jeg postede jo en løsning til dig tidligere, godt nok fordelt over to svar/kommentarer. Her får du en samlet HTML-fil - se om du ikke kan bruge det til noget:

<HTML>
<HEAD>
<TITLE>Billede Viser ver. 1.0</TITLE>
</HEAD>
<BODY>
<SCRIPT LANGUAGE="VBScript">
Function URLDecode(ByVal What)
'URL decode Function
'2001 Antonin Foller, PSTRUH Software, http://www.pstruh.cz
  Dim Pos, pPos

  'replace + To Space
  What = Replace(What, "+", " ")

  on error resume Next
  Dim Stream: Set Stream = CreateObject("ADODB.Stream")
  If err = 0 Then 'URLDecode using ADODB.Stream, If possible
    on error goto 0
    Stream.Type = 2 'String
    Stream.Open

    'replace all %XX To character
    Pos = InStr(1, What, "%")
    pPos = 1
    Do While Pos > 0
      Stream.WriteText Mid(What, pPos, Pos - pPos) + _
        Chr(CLng("&H" & Mid(What, Pos + 1, 2)))
      pPos = Pos + 3
      Pos = InStr(pPos, What, "%")
    Loop
    Stream.WriteText Mid(What, pPos)

    'Read the text stream
    Stream.Position = 0
    URLDecode = Stream.ReadText

    'Free resources
    Stream.Close
  Else 'URL decode using string concentation
    on error goto 0
    'UfUf, this is a little slow method.
    'Do Not use it For data length over 100k
    Pos = InStr(1, What, "%")
    Do While Pos>0
      What = Left(What, Pos-1) + _
        Chr(Clng("&H" & Mid(What, Pos+1, 2))) + _
        Mid(What, Pos+3)
      Pos = InStr(Pos+1, What, "%")
    Loop
    URLDecode = What
  End If
End Function


Dim FilSystem, Mappe, Fil
Set FilSystem=CreateObject("Scripting.FileSystemObject")

sPath = URLDecode(window.location.href)
sPath = Left(sPath, InStrRev(sPath, "/")-1)
If LCase(Left(sPath, 8)) = "file:///" Then
  sPath = Right(sPath, Len(sPath)-8)
End If

MsgBox "HTML-filen ligger i: '" & sPath & "'" & vbCRLF & vbCRLF & "Tryk OK for at vise filerne i mappen..."

Set Mappe=FilSystem.GetFolder(sPath)
Set filer = Mappe.Files
For Each file in filer
  sMsg = sMsg & file.Name & "<br>"
Next

document.Write(sMsg)
</SCRIPT>
</BODY>
</HTML>

Hov, der mangler lige lidt oprydning mv. ;-)

Dim FilSystem, Mappe, filer, file, sMsg, sPath

og efter document.Write(sMsg):

Set FilSystem = Nothing
Set Mappe = Nothing
Set filer = Nothing

adam_christensen ja, det er jeg ganske godt klar over, men jeg vil stadig gerne vide om der er en anden måde a la WScript.Path. Dit eksempel fungerer sikkert fint nok, men der er en masse kode, jeg skal sætte mig ind i så, og hvis der i forvejen findes en anden metode der føler med VBScript, så vil jeg jo hellere bruge den :)

Og er der så nogle, der vil forklare mig, hvorfor det hele stopper ved

Set FilSystem=CreateObject("Scripting.FileSystemObject")

? Nok er det et Script objekt, men da vel ikke et WScript objekt?

storbytossen> Fair nok. Det er ikke muligt at oprette et WScript-objekt fra et HTML client-side script, og derfor er det heller ikke muligt at få adgang til dets metoder (fx WScript.Path - som i øvrigt giver dig stien til wscript.exe og ikke til selve scriptet).

Mht. til hvilken linie fejlen opstår, er det altid til at stole på det linienummer som browseren påstår at fejlen findes i. I dette tilfælde er fejlen i linien: MsgBox(WScript.Path), idet WScript er et ukendt objekt. Prøv at fjern/udkommenter alle linier med WScript i og se om ikke siden loader uden fejl...

adam_christensen, faktisk er WScript ikke problemet...som skrevet stoppes det hele ved FileSystemObject linjen...det er jeg nået frem til ved at teste mig frem...og jeg har slet ikke WScript med længere i den test :)

Det lyder mærkeligt. Hvis du laver en <script>-blok med kun en linie:

Set FilSysmtem = CreateObject("Scripting.FileSystemObject")

får du så også fejl? Hvis ja, hvilken?

Har du i øvrigt prøvet at copy/paste den kode jeg postede d. 30/10 kl. 9:25 ind i et nyt HTML-dokument og se hvad der sker?

Dette spørgsmål mangler input.
Det kan f.eks. være at spørgeren mangler at acceptere/afvise svar/komme med feedback, eller af en svarer mangler at lægge et svar/komme med feedback.