Discussion :

[dkoneeee]

Bonjour,
Je cherche à faire un prog qui permet de rechercher des folders.

J'ai essayé avec :

Code :

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

1
2
3
Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder(folderspec)
        Set fc = f.SubFolders

Ca marche bien mais c trop lourd car ma base à scanner est trop grosse. Donc ca plante.

Avez vous une solution?
Merci d'avance.

[nabil]

essaye ce code

Code :

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

1
2
Dim fso As New FileSystemObject
MsgBox fso.FolderExists(App.path + "\nom")

[ucfoutu]

Re bonsoir, Nabil,

Deux remarques :

1) à nouveau avec cette utilisation (alourdissante de FSO)
2) Relis la question : il s'agit de scanner la totalité afin de localiser un (ou plusieurs, d'ailleurs, car plusieurs folders peuvent porter le même nom) alors que l'on n'en connait pas le chemin principal ...

[nabil]

on se croise à nouveau ucfoutu
concernant fso c'es ok mais concernant

il s'agit de scanner la totalité afin de localiser un (ou plusieurs, d'ailleurs, car plusieurs folders peuvent porter le même nom) alors que l'on n'en connait pas le chemin principal ...

dkoneeee n'a pas spécifié qu'il ne connait pas le chemin ni que les dossiers peuvent avoir le même nom.

Bon ce n'ai qu'une proposition qui peux impérativement être amélioré

[ucfoutu]

Bonjour,
Je cherche à faire un prog qui permet de rechercher des folders.

J'ai essayé avec :

Code :

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

1
2
3
Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder(folderspec)
        Set fc = f.SubFolders

Ca marche bien mais c trop lourd car ma base à scanner est trop grosse
.

Si tel n'était pas le cas : un simple Dir ( de pur VB) suffirait, avec les bons attributs...

[dkoneeee]

merci.

il s'agit de retourner le path d'un ou plusieurs dossiers dans une base connue.

La fonction dir s'applique pour les fichiers et non les dossiers.


est ce que la fonction sfo peut le faire?

[ucfoutu]

merci.

il s'agit de retourner le path d'un ou plusieurs dossiers dans une base connue.

La fonction dir s'applique pour les fichiers et non les dossiers.


est ce que la fonction sfo peut le faire?

Non !

1) La fonction dir sert de la même façon, qu'il s'agisse de dossier ou de fichiers ... seule change la définition de l'attribut ....
2) qu'entends-tu donc par "une base connue" ?

Sois très précis sur ce point fondamental, s'il te plait !

[dkoneeee]

La base c juste un dossier contenant des sous-dossiers dont je veux comparer leur nom.

[dkoneeee]

merci ucfoutu,

Mias la fonction dir retourne le nom du dossier mais pas le path et date created.

[ucfoutu]

Elle est bien bonne, celle-là !

Voilà qu'apparait soudain la notion (demande non exprimée auparavant) de date .... et pourquoi pas d'heure (pendant qu'in y est)...

Voilà donc ce que VB sait faire tout seul et plus vite que FSO :

Un projet - 3 CommandButtons nommés Command1, Command2 et Command3
- une listbox nommée List1 (juste pour voir)

Code :

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
24
25
26
27
28
29
30
31
32
Private Sub Command1_Click()
  ' regarde ce que fait ceci :
 If Dir("c:\Program files\Accessoires", vbDirectory) <> "" Then MsgBox "existe et est un dossier créé ou modifié " & _
 "pour la dernière fois le " & FileDateTime("c:\Program files\Accessoires")
End Sub
 
Private Sub Command2_Click()
 
 ' puis regarde ce que fait ceci ceci :
 List1.Clear
 monrep = "c:\"
 mondossier = Dir(monrep, vbDirectory)
  Do While mondossier <> ""
    If mondossier <> "." And mondossier <> ".." Then
     If (GetAttr(monrep & mondossier) And vbDirectory) = vbDirectory Then
            List1.AddItem mondossier & "  " & FileDateTime("c:\" & mondossier)
        End If
    End If
    mondossier = Dir
  Loop
 
End Sub
 
Private Sub Command3_Click()
  ' et maintenant regarde aussi ce que fait ceci, après avoir ajouté un contrôle
  'Dirlistbox nommé dir 1 et une listbox nommée List1
  List1.Clear
 Dir1.Path = "C:\"
  For i = 1 To Dir1.ListCount - 1
    List1.AddItem Dir1.List(i) & "  " & FileDateTime(Dir1.List(i))
  Next
End Sub

Tu en veux d'autres, peut-être ??? Ya !!!

Une précision : ce ne sont là que trois touts petits exemples bien humbles pour VB.
On pourrait aller plus loin, y compris en triant par date !!!!

[dkoneeee]

Merci encore pour tes solutions ucfoutu, je pense que ca va marcher .

dommage que je n'ai pas de dirlistbox dans ma version VB.

[ucfoutu]

Merci encore pour tes solutions.

dommage que je n'ai pas de dirlistbox dans ma version VB.

Connaitrais tu une fonction pour le path comme pour FileDateTime.

Que nous racontes-tu là ????
1) Si tu n'as pas de contrôle DirlistBox, celà veux dire que tu n'es pas sous VB6 (ni même sous VB5, ni même sous VB4 !!!) .... et si tu es sous VBA (Excel, par Exemple... tu t'es trompé de section ...)

2) Command2 ===>> la même chose, mais sans la DirListBox ....

3) FileDateTime est précisément une fonction de VB

4) que veut dire "Pour le Path" ???? .... si c'est pour le résultat de Command2, il me semble que tu le connais, ce "Path", non ? C'est même celui que tu indiquesau départ !!!

[dkoneeee]

ufoutu serait faire une boucle pour scanner tous les repertoires d'un dossier?

[calimero91]

si tu allez voir dans la FAQ???

voila ce que tu y aurais trouver si tu avais chercher

Nécessite d'activer la référence Microsoft Scripting Runtime (scrrun.dll)
Il y a possibilité d'agir sur chaque fichier listé !

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
24
vb 
 
Private Sub Command1_Click()
 
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
 
    Set fso = New FileSystemObject
    Set dossier = fso.GetFolder("c:\essai")
    scan dossier
 
End Sub
 
Public Sub scan(ByVal dossier As Folder)
 
    For Each fichier In dossier.Files
        Debug.Print fichier
    Next
 
    For Each sousdossier In dossier.SubFolders
        Debug.Print sousdossier
        scan sousdossier
    Next
 
End Sub

[dkoneeee]

ouai mais c trop lourd comme solution car ca fait une copie de tous les dossiers. c'est pourquoi je dois m'orienter vers une autre solution.

Je vous montre mon prog de depart qui est trop gourmand:

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
 
Sub ShowFolderInfo(folderspec, folderspec2)
Dim desc As String
Dim fs, f, s, fc, f1
 
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder(folderspec)
        Set fc = f.SubFolders
        i = 1
 
   For Each f1 In fc
 
        If InStr(f1.Name, TextBox1.Text) Then
     'MsgBox f1.Name
 
          Data(i, 0) = f1.Name
           Data(i, 1) = f1.Path
            i = i + 1
        End If
       Next