Trier fichier par nom de fichier
Bonjour,
Je souhaite avoir une liste d'item trié par nom, voici la façon dont je récupère les items.
Code:
1 2 3
| Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(stRep)
Set ColItems = objFolder.Items |
l'idée est de lancer une impression de fichiers triés par leurs noms (ex 001_File1, 002_File2, 003_File3).
Cependant à l'heure actuelle le programme m'imprime les fichiers dans n'importe quel ordre...
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(stRep)
Set ColItems = objFolder.Items
'Parcourir tous les items du répertoire
For Each strFileName in ColItems
Set oFSO = CreateObject("Scripting.FileSystemObject")
fileName = stRep & objFolder.GetDetailsOf(strFileName, 0)
If oFSO.FileExists(filename) then
'Récupération du propriétaire du fichier et de l'utilisateur connecté
userFile = Ucase(objFolder.GetDetailsOf(strFileName, 10))
userconnect = Ucase(domain & "\"& user)
'Vérification que le propriétaire du fichier et l'utilisateur connecté sont identiques
If userFile = userconnect then
'Lancement de l'impression des fichiers
strFileName.InvokeVerbEx("Print")
'Déplacement des fichiers imprimés dans le répertoire d'archivage
Do while oFSO.FileExists(filename)
oFSO.CopyFile fileName, "\\xxx\" + objFolder.GetDetailsOf(strFileName, 0),true
oFSO.DeleteFile fileName
Loop
End if
End if
Next |
Merci d’avance pour votre aide