Edition de la liste de ses fichiers
Fermé
moustikou
-
5 juil. 2002 à 18:14
ipl Messages postés 5723 Date d'inscription lundi 8 octobre 2001 Statut Contributeur sécurité Dernière intervention 14 avril 2012 - 7 juil. 2002 à 22:09
ipl Messages postés 5723 Date d'inscription lundi 8 octobre 2001 Statut Contributeur sécurité Dernière intervention 14 avril 2012 - 7 juil. 2002 à 22:09
A voir également:
- Edition de la liste de ses fichiers
- Liste déroulante excel - Guide
- Comment réduire la taille d'un fichier - Guide
- Explorateur de fichiers - Guide
- Wetransfer gratuit fichiers lourd - Guide
8 réponses
leprechaun
Messages postés
265
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
18 mars 2003
10
5 juil. 2002 à 18:19
5 juil. 2002 à 18:19
Sous dos:
#cd "mes documents"
#dir>mesdocuments.txt
Opensource is not a crime...
Leprechaun
#cd "mes documents"
#dir>mesdocuments.txt
Opensource is not a crime...
Leprechaun
Ova
Messages postés
345
Date d'inscription
vendredi 5 juillet 2002
Statut
Membre
Dernière intervention
9 juin 2004
22
5 juil. 2002 à 18:19
5 juil. 2002 à 18:19
Bonsoir,
En ecrivant un petit truc en VBA sous Word, tu peux récupérer facilement la liste des documents d'un répertoire.
Ova
.:: Ki ne teste rien n'a rien ::..
En ecrivant un petit truc en VBA sous Word, tu peux récupérer facilement la liste des documents d'un répertoire.
Ova
.:: Ki ne teste rien n'a rien ::..
Ova
Messages postés
345
Date d'inscription
vendredi 5 juillet 2002
Statut
Membre
Dernière intervention
9 juin 2004
22
5 juil. 2002 à 18:26
5 juil. 2002 à 18:26
Re-Bonsoir,
Un bidule du genre (euh ... à tester) ...
************
Public Sub Listage()
Dim strFichier
strFichier = "C:\Mes Documents" '' chemin du dossier
Dim objSysFich As FileSystemObject
Dim objFold As Folder
Dim objFile As File
Dim myRange
Dim j As String, i As Variant, h As String
Set objSysFich = CreateObject("Scripting.FileSystemObject")
Set objFold = objSysFich.GetFolder(strFichier)
j = ""
Set myRange = ActiveDocument.Content
For Each i In objFold.Files
h = i.Name
j = j & Chr$(9) & h & Chr$(10)
h = ""
Next i
Dim f As Variant, g As String
For Each f In objFold.SubFolders
g = g & "# " & f.Name & Chr$(10)
Next f
g = "Dossiers = " & Chr$(10) & g
j = "Fichiers = " & j
myRange.Text = "Dossier parcouru = " & strFichier & Chr$(10) & g & Chr$(10) & j
End Sub
************
Ova
.:: Ki ne teste rien n'a rien ::..
Un bidule du genre (euh ... à tester) ...
************
Public Sub Listage()
Dim strFichier
strFichier = "C:\Mes Documents" '' chemin du dossier
Dim objSysFich As FileSystemObject
Dim objFold As Folder
Dim objFile As File
Dim myRange
Dim j As String, i As Variant, h As String
Set objSysFich = CreateObject("Scripting.FileSystemObject")
Set objFold = objSysFich.GetFolder(strFichier)
j = ""
Set myRange = ActiveDocument.Content
For Each i In objFold.Files
h = i.Name
j = j & Chr$(9) & h & Chr$(10)
h = ""
Next i
Dim f As Variant, g As String
For Each f In objFold.SubFolders
g = g & "# " & f.Name & Chr$(10)
Next f
g = "Dossiers = " & Chr$(10) & g
j = "Fichiers = " & j
myRange.Text = "Dossier parcouru = " & strFichier & Chr$(10) & g & Chr$(10) & j
End Sub
************
Ova
.:: Ki ne teste rien n'a rien ::..
Mouis, ou bien faire menu démarrer > Exécuter et taper:
dir "c:\mes documents" /b /s > c:\maliste.txt
puis ouvrir c:\maliste.txt avec Word.
Essayer aussi sans le /b, ça dépend des goûts.
dir "c:\mes documents" /b /s > c:\maliste.txt
puis ouvrir c:\maliste.txt avec Word.
Essayer aussi sans le /b, ça dépend des goûts.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ova
Messages postés
345
Date d'inscription
vendredi 5 juillet 2002
Statut
Membre
Dernière intervention
9 juin 2004
22
5 juil. 2002 à 18:36
5 juil. 2002 à 18:36
(aie aie aie ... pour une fois que j'osais ... promis je le ferai plus ...)
Ova
Ova
ofournier.cbd
Messages postés
5862
Date d'inscription
jeudi 10 janvier 2002
Statut
Membre
Dernière intervention
18 janvier 2003
84
5 juil. 2002 à 18:52
5 juil. 2002 à 18:52
Vas en paix, Ova mon enfant, et recommences allègrement ... ou changes de signature.
Tiens une complémentaire : "il n'est point d'impasse là où on peut faire marche arrière".
Les microgonadoclastes
sont insupportables ! OFou
Tiens une complémentaire : "il n'est point d'impasse là où on peut faire marche arrière".
Les microgonadoclastes
sont insupportables ! OFou
Ova
Messages postés
345
Date d'inscription
vendredi 5 juillet 2002
Statut
Membre
Dernière intervention
9 juin 2004
22
5 juil. 2002 à 18:58
5 juil. 2002 à 18:58
Petit Scarabée encore et encore testera ...
Avec humilité Petit Scarabée progressera,
Et pour tout cela ... CCM remerciera !
Ova
.:: Ki ne teste rien n'a rien ::.. Na !
Avec humilité Petit Scarabée progressera,
Et pour tout cela ... CCM remerciera !
Ova
.:: Ki ne teste rien n'a rien ::.. Na !
ipl
Messages postés
5723
Date d'inscription
lundi 8 octobre 2001
Statut
Contributeur sécurité
Dernière intervention
14 avril 2012
585
7 juil. 2002 à 22:09
7 juil. 2002 à 22:09
Bonsoir à tous,
Je mets là un lien vers un fil de suite :
http://www.commentcamarche.net/forum/affich.php3?cat=1&ID=117797&page=1
pour qu'on ait la suite de la discussion.
@12C4
Ipl
Je mets là un lien vers un fil de suite :
http://www.commentcamarche.net/forum/affich.php3?cat=1&ID=117797&page=1
pour qu'on ait la suite de la discussion.
@12C4
Ipl