Cartelle intranet

[pigeonit]

Buonagiornata a tutti (anche se qui piove a dirrotto) vorrei chiedervi un consiglio: Ho la necessità di elencare dei file contenuti in una cartella che però non voglio mettere nella cartella principale del sito intranet. Mi spiego meglio voglio fare in modo che un determinato utente possa scrivere dei file all'interno di una cartella e voglio fare in modo che questi file vengano elencati tramite l'esecuzione del seguente codice:

'Dichiarazione delle variabili
        Dim Folder, FSO, Folder_Path, Elenco_File As Object
        Dim FileName, SubFolder As String

        'Assegnazione delle variabili
        SubFolder = ListaAnni.SelectedItem.Value.ToString
        Folder = "/OdgFolders/" & SubFolder & "/"
        FSO = CreateObject("Scripting.FileSystemObject")
        Folder_Path = FSO.GetFolder(Server.MapPath(Folder))
        Elenco_File = Folder_Path.Files

        'Il seguente ciclo for genera un link per ogni file contenuto nella cartella 
        For Each file In Elenco_File
            FileName = Replace(file.name, " ", "%20")
            Response.Write("<A HREF=")
            Response.Write(Folder)
            Response.Write(FileName)
            Response.Write(">")
            Response.Write(file.name)
            Response.Write("</A>")
            Response.Write("
")
        Next

Fin qui, mettendo la cartella contenente i file in una sottodirectory del sito, ci sono riuscito. Il problema è che non voglio concedere le autorizzazioni alle cartelle del sito all'utente che deve scrivere i file nella cartella.
Esiste un modo per far si che che il sito web veda una cartella esterna al sito (al limite anche in un altro server) come una cartella propria, una sorta di collegamento. Cioè la cartella fiscamente non è li ma il sito la vede come se lo fosse.
Graze dell'aiuto

Bruno

[pigeonit]

Ho creato la cartella che voglio far modificare all'utente l'ho condivisa e gli ho dato tutte le autorizzazioni del caso compreso lautorizzazione per far si che l'application pool di iis potesse accedere. poi ho modificato così il codice:

'Dichiarazione delle variabili
        Dim Server, FSO, Folder_Path, Elenco_File As Object
        Dim FileName, ShareFolder As String

        'Assegnazione delle variabili
        Server = "nome server dove ho posizionato la cartella"
        ShareFolder = nome della combo box.SelectedItem.Value.ToString
        FSO = CreateObject("Scripting.FileSystemObject")
        Folder_Path = FSO.GetFolder("\\" & Server & "\" & ShareFolder)
        Elenco_File = Folder_Path.Files

        'Il seguente ciclo for genera un link per ogni file contenuto nella cartella 
        For Each file In Elenco_File
            FileName = Replace(file.name, " ", "%20")
            Response.Write("<A HREF=")
            Response.Write("file://///" & Server & "/" & ShareFolder & "/" & FileName)
            Response.Write(">")
            Response.Write(file.name)
            Response.Write("</A>")
            Response.Write("
")
        Next

L'unico problema per ora è che firefox non mi apre tali collegamenti ma explorer si. Troverò sicuramente la soluzione
Grazie a tutti e buona giornata