In questo script leggeremo i files da una directory e li ordineremo con un'altro algoritmo di ordinamento, in questo caso prendiamo il select-sort.
<% response.Write("File presenti:<p>") Set fs=CreateObject("Scripting.FileSystemObject") Set f=fs.GetFolder("c:\windows") ' directory che verrà esaminata set fc=f.Files numero_file=0 dim files(1000) for Each whatever in fc files(numero_file)=Trim(whatever.name) numero_file=numero_file+1 next set fs=Nothing ' ' Ordinamento files con tecnica select-sort ' (adatta per ordinare brevi liste per la sua compattezza) ' for a=0 to numero_file-1 d=a aa=files(a) for b=a+1 to numero_file-1 if files(b)<aa then d=b aa=files(b) end if next files(d)=files(a) files(a)=aa next ' ' Visualizza i files ordinati alfabeticamente ' for t=0 to numero_file-1 response.write files(t)&"<br>" next %>
Per maggiori informazioni su files e directory si veda
https://www.aspitalia.com/articoli/intranet/esplora_risorse.asp
https://www.aspitalia.com/articoli/files.asp
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
I più letti di oggi
- Sblocca le performance della tua applicazione con .NET 8
- Utilizzare WebAssembly con .NET, ovunque
- Gestire la cancellazione di una richiesta in streaming da Blazor
- L'evoluzione di Blazor in .NET 8
- gRPC con .NET
- ecco tutte le novità pubblicate sui nostri siti questa settimana: https://aspit.co/wkly buon week-end!
- Blazor: Security
- Utilizzare QuickGrid di Blazor con Entity Framework