Percorso da fisico a virtuale

[SoloWiFi]

Dovrei convertire un percorso fisico in uno virtuale.
Come si fa?

[santino83]

server.mapPath(percorso_virtuale)

[SoloWiFi]

no, questo mi da il percorso fisico. A me serve avere un percorso virtuale passandogli quello fisico.

Forse è meglio che ti faccio vedere il sorgente.
-----------------------------------------------------
<%
' questo file si chiama tree.asp

Public function FsoTree(byRef Fso,Path)
Dim SubFolders,Folder, File,Files
Response.Write ("

1. ")
   Set SubFolders = Fso.GetFolder(Path).SubFolders
   
   For Each Folder in SubFolders
   Response.Write ("<LI>" & uCase(Folder.Name) &"")
   FsoTree Fso,Folder.Path
   Response.Write("</LI>")
   Next
   
   Set Files = Fso.GetFolder(Path).Files
   
   For Each File in Files
   if File.Name<>"tree.asp" then
   link="\" ' (qui devo mettere l'istruzione che mi converte il path)
   Response.Write ("<LI>" & "" & File.Name & "</LI>")
   end if
   Next
   Response.Write ("

")
End Function

Set Fso = Server.CreateObject("Scripting.FileSystemObject")
FsoTree Fso,Server.MapPath(".")
Set Fso = nothing

%>
-----------------------------------------------------

[willybit]

praticamente ti serve il contrario di MapPath... allora 'sta funzione la chiamiamo HtapPam

Function HtapPam(percorsoFisico)
  strRoot = Server.MapPath("/")
  percorsoWeb = Replace(Replace(percorsoFisico,strRoot,""),"\","/")
  HtapPam = percorsoWeb
End Function

[SoloWiFi]

la funziona va bene!
Ora ho i problemi per i caratteri speciali. Cosa che non risolvo con URLencode.

Datosi che quando scrivo
var="<a href='">&path&"'>"
e trovo apici nel nome del file, il link viene, ovviamente, troncato.
Quindi dovrei scrivere nella riga il doppio apice invece che il singolo.
Come si decodifica il carattere " ?

[maximum]

devi fare replace anche degli apici:

Function HtapPam(percorsoFisico)
  strRoot = Server.MapPath("/")
  percorsoWeb = Replace(Replace(Replace(percorsoFisico, strRoot, ""), "\", "/"), "'", "''")
  HtapPam = percorsoWeb
End Function

[SoloWiFi]

NO!
Non posso cambiare i caratteri del link! Altrimenti il file non esiste.
Devo comporre meglio la stringa tag. Quindi mi serve come si decodifica il simbolo "

[maximum]

Prova così:

Function HtapPam(percorsoFisico)
  strRoot = Server.MapPath("/")
  percorsoWeb = Replace(Replace(Replace(percorsoFisico, strRoot, ""), "\", "/"), "''", "& q u o t ;")
  HtapPam = percorsoWeb
End Function

& q u o t senza spazi.

[SoloWiFi]

no .. non va

il carattere " è equivalente a %qualcosa
non riesco a trovarlo

[maximum]

Prova così:

Function HtapPam(percorsoFisico)
  strRoot = Server.MapPath("/")
  percorsoWeb = Replace(Replace(Replace(percorsoFisico, strRoot, ""), "\", "/"), """, "%22")
  HtapPam = percorsoWeb
End Function

Guarda qua --> http://timstall.dotnetdevelopersjour...erystrings.htm

Scorri la pagina c'è una tabellina che fa al caso tuo.