Créer un repertoire tous les 1000 Fichiers.

Messages postés
327
Date d'inscription
mardi 8 octobre 2002
Statut
Membre
Dernière intervention
6 octobre 2010
- - Dernière réponse : cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
- 26 sept. 2007 à 17:11
Bonjour,

Je suis a la recherche d'un algorithme qui crée un repertoire tous les 1000 Fichiers.

Merci
Afficher la suite 

5 réponses

Messages postés
75
Date d'inscription
samedi 30 août 2003
Statut
Membre
Dernière intervention
7 janvier 2008
0
Merci
Mettre CompteurFichiers a 0
Tant qu'il reste des fichiers
  créer fichier
  incrementer CompteurFichiers
  si CompteurFichiers >=1000
    Créer repertoire
    Mettre CompteurFichiers a 0
  Finsi
FinTant

C'etait, ... trés eprouvant mentalement ... , je comprend que tu aie eu besoin d'aide
Commenter la réponse de nah666
Messages postés
764
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
6 septembre 2010
15
0
Merci
Salut, pouvez-vous expliquer d'avantage..
Est-ce cet algorithme doit lire à dans un répertoire ?









______________________________________________________________________
Visitez ma ville http://chatbour.miniville.fr/
Boissons gratuit
Commenter la réponse de cs_Chatbour
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
11
0
Merci
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


 
Commenter la réponse de cs_Exploreur
Messages postés
327
Date d'inscription
mardi 8 octobre 2002
Statut
Membre
Dernière intervention
6 octobre 2010
0
Merci
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
Commenter la réponse de cs_globule
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
11
0
Merci
Salut,

Content de voir que tu as trouver ta solutions, mais précise la prochaine fois un peu plus tes demandes de ce que tu connais >> 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

 
Commenter la réponse de cs_Exploreur