1.jpg
2.jpg
3.jpg
10.jpg
11.jpg
12.jpg
100.jpg
101.jpg
102.jpg
1000.jpg
1001.jpg
1002.jpg
2000.jpg
2001.jpg
etc
ordinandoli per nome, nelle finestre di windows, ottengo la sequenza numerica (come postata)
ma se utilizzo il codice
- Codice: Seleziona tutto
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Immagini\Test\"
.SearchSubFolders = False
.Filename = "*.*"
.MatchTextExactly = True
If .Execute > 0 Then
Open "C:\Temp\dir.txt" For Append As #2
For I = 1 To .FoundFiles.Count
If .FoundFiles(I) <> "C:\Immagini\Test\Thumbs.db" Then Print #2, .FoundFiles(I)
Next I
Close #2
End If
End With
Ottengo questo ordine (molto simile al Dir di Ms-Dos) che non va bene
C:\Immagini\Test\1.jpg
C:\Immagini\Test\10.jpg
C:\Immagini\Test\100.jpg
C:\Immagini\Test\1000.jpg
C:\Immagini\Test\1001.jpg
C:\Immagini\Test\1002.jpg
C:\Immagini\Test\101.jpg
C:\Immagini\Test\102.jpg
C:\Immagini\Test\11.jpg
C:\Immagini\Test\12.jpg
C:\Immagini\Test\2.jpg
C:\Immagini\Test\2000.jpg
C:\Immagini\Test\2001.jpg
C:\Immagini\Test\3.jpg
Esiste un comando in Vba che permetta di ordinare secondo le modalità di windows?