créer un repertoire tous les 1000 Fichiers.

Salut,

Regarde ce code de PCPT(Snippet déposé), il te permet de compter un certains type de fichier voir tous les fichiers :

Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Long
    CountFilesFromDirectory = 0
    If RightB$(sDir, 2) <> "\" Then sDir = sDir & "\"
'   formate le  chemin
    Dim sFile As String
    sFile = Dir(sDir & sFilter, vbHidden Or vbSystem)

    If LenB(sFile) > 0 Then
'       boucle sur tous les  fichiers (et incrémente)
        Do
            CountFilesFromDirectory = CountFilesFromDirectory + 1
            sFile = Dir
        Loop Until LenB(sFile) = 0
    End If
End Function

'   EXEMPLE  D'UTILISATION
Private Sub Form_Load()
'   compte toutes les  dll dans windows
MsgBox CountFilesFromDirectory("C:\Windows\", "*.dll")
'   compte tous les fichiers dans temp
MsgBox CountFilesFromDirectory(Environ$("TEMP"))
End Sub


Maitenant que tu peux compter tous les fichiers, utilise Mkdir pour créer ton répertoire quant tu atteints 1000 fichiers(ce que te renvois CountFilesFromDirectory)

A+
Exploreur

 Linux a un noyau, Windows un pépin

En fait je connais déjà le nombre de fichier, puisque ce dernier correspond a une clé auto incrémentielle dans une base de données.
J'ai finalement fait l'algo suivant qui fonctionne

NumImg correspond au numéro de mon fichier, j'ai crée un repertoire tous les 10 fichiers pour le test, il suffit donc de remplacer step -10 par step -1000

    NumRep = 0
    For NumRep = 150000 To 1 Step -10
        If NumImg > NumRep Then
            If Dir(MyChReseau + "\imageexterne\REP_" & NumRep, vbDirectory) = "" Then MkDir (MyChReseau + "\imageexterne\REP_" & NumRep)
            Exit For
        End If
    Next
    If NumRep < 1 Then
        NumRep = 1
        If Dir(MyChReseau + "\imageexterne\REP_" & NumRep, vbDirectory) = "" Then MkDir (MyChReseau + "\imageexterne\REP_" & NumRep)
    End If

En fait je connais déjà le nombre de fichier, puisque ce dernier correspond a une clé auto incrémentielle dans une base de données

A+
Exploreur

 Linux a un noyau, Windows un pépin