nome files in cartella: ordinamento

[andropoff]

devo leggere i files contenuti in una cartella, recuperandone il nome, il numero ed elencando la lista.

con questo script faccio tutto questo (tralascio creazioni dell'oggetto e complementari)

a = ("0,1,2,3,4,5,6,7,8,9")
myArray = Split(a,",")
For w = 0 to Ubound(myArray)
	For Each file in files 
		if myArray(w) = left(file.name,1) then
		Response.Write(file.name) &"
"
		end if
	Next
Next

lo script ordina dal più piccolo (0.pdf) al più grande (9.pdf)..

il problema è ovviamente che quando sono 10 mi salta l'ordianamento (0,1,10 ,2,3,4,5,6,7,8,9), idem per 100, tra poco saranno 1000 e non si capisce più nulla..

è possibile ovviare al problema?
oppure, in alternativa, è possibile ordinarli per data di creazione!?

[andropoff]

Originariamente inviato da andropoff
devo leggere i files contenuti in una cartella, recuperandone il nome, il numero ed elencando la lista.

con questo script faccio tutto questo (tralascio creazioni dell'oggetto e complementari)

a = ("0,1,2,3,4,5,6,7,8,9")
myArray = Split(a,",")
For w = 0 to Ubound(myArray)
	For Each file in files 
		if myArray(w) = left(file.name,1) then
		Response.Write(file.name) &"
"
		end if
	Next
Next

lo script ordina dal più piccolo (0.pdf) al più grande (9.pdf)..

il problema è ovviamente che quando sono 10 mi salta l'ordianamento (0,1,10 ,2,3,4,5,6,7,8,9), idem per 100, tra poco saranno 1000 e non si capisce più nulla..

è possibile ovviare al problema?
oppure, in alternativa, è possibile ordinarli per data di creazione!?

neussuno?!

[hi4all]

Il metodo migliore è di metterli prima in un array per poi ordinarlo a piacimento.
ciao

[wallrider]

beh potresti immettere i nomi nell'array utilizzando prima la funzione format
non ho la possibilità di provare il codice, però, quindi non so essere più preciso

[andropoff]

grazie 1000 purtroppo però sono argomenti a me sconosciuti..array, funzione format...


qualcuno può quantomeno indirizzarmi?

[optime]

usa un recordset disconnesso. fa' una ricerca nel forum, ne abbiamo già parlato

[santino83_11_04]

l'istruzione format sull'array sincerament enon la conosco, però da questo:

myArray=split(a,",")

tu hai un array...usi un algoritmo di ordinamento di array che trovi in rete e poi lasci li il tuo ciclo

[hi4all]

Questo codice ti dovrebbe aiutare a capire il metodo del recordset.

    Dim rs As Recordset, fso As Scripting.FileSystemObject
    Dim NomeCartella As String
    
    NomeCartella = "c:\"
    Set rs = New Recordset
    rs.Fields.Append "Nome", adVarChar, 100
    rs.Open
    
    Set fso = New Scripting.FileSystemObject
    Set d = fso.GetFolder(NomeCartella)
    For Each f In d.Files
        rs.AddNew
        rs!nome = f.Name
        rs.Update
    Next
    Set fso = Nothing
    
    rs.MoveFirst
    rs.Sort = "Nome"
    Do Until rs.EOF
        Debug.Print rs!nome
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

[andropoff]

Originariamente inviato da hi4all
Questo codice ti dovrebbe aiutare a capire il metodo del recordset.

    Dim rs As Recordset, fso As Scripting.FileSystemObject
    Dim NomeCartella As String
    
    NomeCartella = "c:\"
    Set rs = New Recordset
    rs.Fields.Append "Nome", adVarChar, 100
    rs.Open
    
    Set fso = New Scripting.FileSystemObject
    Set d = fso.GetFolder(NomeCartella)
    For Each f In d.Files
        rs.AddNew
        rs!nome = f.Name
        rs.Update
    Next
    Set fso = Nothing
    
    rs.MoveFirst
    rs.Sort = "Nome"
    Do Until rs.EOF
        Debug.Print rs!nome
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

sono riuscito a riprendere in mano il lavoro solo oggi..grazie per tutte le risposte prima di tutto...

ho letto il codice che mi hai postato ma mi torna immediatamente un errore alla prima riga

Dim rs As Recordset, fso As Scripting.FileSystemObject errore di compilazione prevista fine istruzione... perchè?!

[optime]

fa' 2 dim separate