Script ASP per Elencare tutti File .URL o .LNK di una Cartella

Lo script proposto in questo articolo è un pò “curioso” ma lo condivido ugualmente perchè a qualcuno potrebbe tornare utile. E’ stato progettato per trasformare un’albero di cartelle contenenti file .URL … in una pagina WEB.

I file .URL sono quelli che si “ottengono” quando si crea un nuovo collegamento (l’estensione .Url non è mai visibile)

Le cartelle in questione contenevano una specie di “elenco di preferiti” in quanto ogni file era cliccabile.
Per poter elencare su una pagina WEB molte cartelle contenenti file .Url ho utilizzato lo script ASP per il Browse in modo ricorsivo, ma modificato.

Era necessario effettuare un “parse” del file .url per recuperare l’indirizzo.
il file .url è composto così : [InternetShortcut] URL=http://www.serverbay.it/ Modified=E0AC2F88C0D8CF01AB

Il seguente estratto di programmazione è una parte dello script disponibile per il Download e mostra come viene effettuato il solo “CUT” dell’indirizzo:

percorso = Server.MapPath(strPath&objItem.Name)
Set InStream=FileObject.OpenTextFile(percorso,1,False,False)
linee=Instream.ReadAll
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing

cercato ="URL"
posiztrovat = InStr(linee,cercato)

posizstart2 = posiztrovat + 1
posiztrovat2 = InStr(posizstart2,linee,"Modified")

differenza = posiztrovat2 - posiztrovat
Indirizzo = Mid(linee,posiztrovat,differenza)
Indirizzo = replace(Indirizzo,"URL=", "")

File : Browse_File_Cartella_Ricorsivo_Asp

Browse Cartella con script ASP, elencare file URL in cartella con script ASP, elencare tutti i files .url di una cartella in modo ricorsivo con script ASP classic, Come elencare i file Url di una directory con script ASP, Creare lista di file e cartelle cons cript asp, Elencare tutti i file url presenti in una cartella con script ASP, Elencare file e sottocartelle di una cartella Script asp, creare una cartella di preferiti cn con script ASP, preferiti cn con script ASP