FSO problem! — webForum

ironheadMedlem sedan mars 20011 346 inlägg

5 juni 2002 17:07#1

Använder denna kod för att lista filer och kataloger på min webserver:

<%
StartMapp = Request.QueryString("StartMapp")
StartMappUrl = Request.QueryString("StartMappUrl")

Set filsystemobjekt = CreateObject("Scripting.FileSystemObject")
Set folder = filsystemobjekt.GetFolder(StartMapp)
Set filer = folder.Files
Set underkataloger = folder.SubFolders

%>
<html>

\<table align="center" cellpadding="0" cellapcing="0" border="0" width="100%"\>
  \<tr\>
    \<td width="49%" bgcolor="#003399"\>\<font face="Verdana" color="#FFFFFF"\>\<strong\>\<small\>Filnamn\</small\>\</strong\>\</font\>\</td\>
    \<td width="17%" bgcolor="#003399"\>\<font face="Verdana" color="#FFFFFF"\>\<strong\>\<small\>Filtyp\</small\>\</strong\>\</font\>\</td\>
    \<td width="17%" bgcolor="#003399"\>\<font face="Verdana" color="#FFFFFF"\>\<strong\>\<small\>Datum\</small\>\</strong\>\</font\>\</td\>
    \<td width="17%" bgcolor="#003399"\>\<font face="Verdana" color="#FFFFFF"\>\<strong\>\<small\>Storlek\</small\>\</strong\>\</font\>\</td\>
  \</tr\>
  \<tr\>

<%
For Each folder in underkataloger

If folder.Attributes < 50 then
%>
<td width="49%"><img src="images/folder.gif" align="absmiddle" WIDTH="15" HEIGHT="13"> <% Response.Write "<a href=""index.asp?url=" & server.urlencode(StartMappUrl) & "/" & server.urlencode(folder.name) & "&path=" & server.urlencode(StartMapp) & "\" & folder.name & """>" & folder.name & "</a> " %> </td>
<td width="17%">mapp</td>
<td width="17%"><%= FormatDateTime(folder.DateCreated, 2) %> </td>
<td width="17%"><%= folder.Size %> </td>
</tr>
<%
end if
Next
%>
<%
For Each folder in filer

If folder.Attributes < 50 then
%>
<tr>
<td width="49%"><img src="images/dokument.gif" align="absmiddle" WIDTH="13" HEIGHT="16"> <%' Response.Write "<a href=" & StartMappUrl & "/" & folder.name & "/" & ">" & folder.name & "</a> " %>
<a href="<%=server.HTMLEncode(StartMappUrl)%>/<%=server.HTMLEncode(folder.name)%>"><%=folder.name%></a> 
</td>
<td width="17%"><%= folder.Type %> </td>
<td width="17%"><%= FormatDateTime(folder.DateCreated, 2) %> </td>
<td width="17%"><%= folder.Size %> </td>
</tr>

<%
end if
Next
%>
</table>

</tr>
</table>
<a href="javascript:history.go(-1)">«Tillbaka</a>
</body>
</html>
<%

Set filsystemobjekt = Nothing
Set folder = Nothing
Set filer = Nothing
Set underkataloger = Nothing

Allt funkar bra sålänge jag håller mig inom wwwroot på webservern...men när jag ändrar till F:\ så listas ingenting, men skriptet körs utan problem ändå...men inga filer eller kataloger syns.

Ändå är sökvägarna liknande:

Startmapp=d:\\inetpub\\wwwroot\<katalog>\\
StartUrl=http://<server>/<katalog>
mot:
Startmapp=f:\\<katalog>\\
StartUrl=http://<server>/<katalog>

Jag har satt upp f:\<katalog> som en "virtual directory", är det det som kan ställa till det?

Vad tror ni det beror på?

cupyMedlem sedan apr. 2002299 inlägg

5 juni 2002 20:48#2

kanske jag missat något men vart ändrar du till F:\

ironheadMedlem sedan mars 20011 346 inlägg

5 juni 2002 20:55#3

Jag skickar med sökvägen...både fysiska: Startmapp=f:\\<katalog>\\

och den virtuella:

http://<server>/<katalog>

OveRRidEMedlem sedan feb. 200112 078 inlägg

6 juni 2002 06:11#4

Set filsystemobjekt = CreateObject("Scripting.FileSystemObject")

Saknar du inte ett "Server." framför Create... där?

Inte för att det är det som är felet, men.. :)

Sen tycker jag du har döpt samlingen fel..

For Each folder in filer

Eftersom detta inte är mappar så borde folder bytas ut mot file, lämpligtvis. För en mer läsbar kod.

ironheadMedlem sedan mars 20011 346 inlägg

6 juni 2002 06:52#5

Har sett detta skript här, så jag har bara kopierat det som det är för att testa...så jag har inte satt några variabler...men men...får det inte att fungera...

ironheadMedlem sedan mars 20011 346 inlägg

6 juni 2002 07:26#6

Verkar som om det sitter i sökvägen i "Startmapp"...det spelar ingen roll vilken sökväg jag skriver, eller om den finns eller ej...den visar ändå inga filer eller mappar.

Om det nu är som jag misstänkte, att FSO får problem med virtuella webplatser...hur ska man då kunna lösa detta problem?

ironheadMedlem sedan mars 20011 346 inlägg

11 juni 2002 08:42#7

Ingen som har nån lösning på hur man ska kunna använda FSO på virtuella webplatser? :l