Scripting.FileSystemObject

[ziobabba]

Salve ragazzi
ho una domandina da proporvi.
E' possibile andare a listare una directory che si trova su un altro computer con il "Scripting.FileSystemObject"?

Per dirvela tutta vi posto la mia funzione
Function ShowFile(folderspec)
Dim fso, folder, file, FileItem,checkso,pathcheck

Set fso = CreateObject("Scripting.FileSystemObject")

pathcheck=(folderspec)

Set folder = fso.GetFolder (pathcheck)
Set file = folder.Files

For each FileItem in file
response.write FileItem & "
"
next
End Function

che poi e' quella che ho trovato in giro. Ma mi chiedevo cosa mettere nel "pathcheck" per avere la lista dei file su un altro computer collegato in rete lan.

Ciao

[Mems]

Se i due computer stanno sulla stessa rete e possono instaurare una condivisione di rete amministrativa, del tipo "\\nomealtrocomputer\c$\cartella1\" allora si.

[ziobabba]

Grazie per la dritta ma non sembra funzionare.

Ho sharato la cartella del secondo computer con l'utente del primo(webserver) ma non mi si fila di pezza.

Tramite file explorer non c'e' problema ma tramite web browser nada.

[Mems]

L'errore qual'è?
Su quella cartella sharata ci deve stare tra le permission l'internet guest account del pc che fa da webserver e che esegue la pagina asp e, ovviamente, permessi in modifica.

[ziobabba]

Bene infatti l'ho solo abilitata per un utente creato appositamente.

Ma non riesco a capire come diavolo si fa a creare o a condividere la cartella ad un utente di un altra macchina.

Comunque l'errore e' path non trovata (chiaramente)

[Mems]

aaa... path non trovato?
vediamo il codice?

[ziobabba]

il codice e' questo

Dim fso, folder, file, FileItem,checkso,pathcheck

Set fso = CreateObject("Scripting.FileSystemObject")

pathcheck=("\\10.92.19.130\Export")
response.write(pathcheck)

Set folder = fso.GetFolder (pathcheck) 'qui l'errore'
Set file = folder.Files

For each FileItem in file
response.write FileItem & "
"
next

[Mems]

Prova a mappare la cartella remota come unita locale dando una lettera disco virtuale.

[ziobabba]

l'ho fatto ma fa una strana cosa senbra vedere il disco z (l'ho mappato cosi') ma quando provo a fare il

set folders=zeta.RootFolder

mi da il path not found
qui di sequito il codice

Dim fso, zeta, folder, file, FileItem,checkso,pathcheck

Set fso = CreateObject("Scripting.FileSystemObject")

set zeta = fso.GetDrive("z:")

resonse.write(zeta.path)

set folders=zeta.RootFolder

Set subfolder = folders.Subfolders


Set folder = fso.GetFolder (pathcheck)
Set file = folder.Files

For each FileItem in file
response.write FileItem & "
"
next

Ciao