Discussion :

[pierrot2908]

Bonjour,
Je souhaite avoir une liste d'item trié par nom, voici la façon dont je récupère les items.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[papyxy]

Bonjour
A ta place je stockerais les noms de fichiers dans un tableau.
Puis je ferai un tri de ces noms dans le tableau.
En suite j' irai rechercher les fichiers à partir du tableau.

A toi de voir!...