virtuel sti
HejJeg har lavet en vbs-fil der skal vise alle billeder i en mappe. Den virker fint, men jeg er nødt til at skrive stien til mappen hvor filen ligger. Kan man ikke få scriptet til selv at finde ud af hvor den er??
(det er variablen 'hvor' jeg vil tilrette)
Scriptet:
<html><head><title>****</title>
</head>
<body margin=0>
<table width="100%" Height="100%"><tr><td align="center">
<table border=2 cellpadding=15 borderColor=red BgColor=#dddddd>
<script Language=VBScript>
dim obj, mapp, hvor, test1, drev, tekst, tut
'I variablen hvor skrives stien som html-filen ligger i (og billederne)
set obj=createObject("Scripting.FileSystemObject")
hvor="C:\Documents and Settings\dkdcda\skrivebord"
set mapp=obj.getFolder(hvor)
set filer1=mapp.Files
dim item, i
i=0
for each item in filer1
i=i+1
document.Write "<tr><td width=200 height=10>Billed_nr: "& i &"<br>Billed navn: "&item.name&"<br><img src="&item.name&"></td></tr>"
Next
Set obj=Nothing
</script>
</table>
</td></tr></table>
</body>
</html>
