OpenPictureFile Method

Jeg er ikke helt sikker på hvad du mener, men hvis du tænker på en metode til at læse binære datastrømme, så er svaret nej.

Det som jeg gerne vil er:
Jeg har et bibliotek på serveren der indeholder et antal billeder fra 1 til ~.

Dag # åbner den første billede.
Næste dag åbnes næste billede osv.
Indtil sidste billede er nået.
Derefter startes forfra med billede nr. 1.
Så er det om der findes noget i retning af OpenPictureFile ?

Det hører jo egentlig til ovre i ASP-kategorien, men se om du kan bruge dette til noget:

sPicturePath = "."
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPicturePath)

Set fc = f.Files

For Each file in fc
  sMsg = sMsg & "<img src='" & file & "'>"
Next

MsgBox sMsg

Det er sikkert rigtigt.
Men det er stadig for mig lidt svært at se hvad der er VB og ASP.
Jeg prøver.

Jeg får denne fejl:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0046)
Tilladelse nægtet: 'MsgBox'
linie 17 er MsgBox sMsg

Kører du det som en vbs-fil eller som et ASP-script?

et asp script via localhost

Brug Response-objektet i stedet for MsgBox:

Response.Write sMsg

Således:

<%
sPicturePath = Server.MapPath("/")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPicturePath)

Set fc = f.Files

For Each file in fc
  If LCase(Right(file.Name, 3)) = "gif" Or LCase(Right(file.Name, 3)) = "jpg" Then
    Response.Write "<img src='" & file.Name & "'>&nbsp;"
  End If
Next

%>

Det virker faktisk.
Nogle gange.
Sætter jeg stien til: sPicturePath = Server.MapPath("/")
ser jeg billederne i det aktuelle bibliotek (/test). Men sætter jeg stien til:
sPicturePath = Server.MapPath("/test/thumbs")
ser jeg kun ankrene til billederne selvom der ligger de samme billeder i som i det aktuelle bibliotek.

Ret linien:
Response.Write "<img src='" & file.Name & "'>&nbsp;"

til:
Response.Write "<img src='/test/thumbs/" & file.Name & "'>&nbsp;"

Det bør selvfølgelig laves dynamisk så stien gemmes i en variabel og den så bruges til både Server.MapPath og img-tagget.

Ok. Men jeg lukker min konto på eksp.
Send lige et svar

Svar