Edition de la liste de ses fichiers
moustikou
-
ipl Messages postés 5738 Statut Contributeur sécurité -
ipl Messages postés 5738 Statut Contributeur sécurité -
Bonjour
Je voudrais éditer la liste de mes fichiers contenus dans mon répertoire "mes documents"et ceux contenus dans les sous répertoires de "mes documents" avec l'explorateur, sous windows 98 mais je ne sais pas comment procéder. A défaut pouvoir récupérer la liste de mes fichiers dans word.
Merci d'avance pour votre aide
Je voudrais éditer la liste de mes fichiers contenus dans mon répertoire "mes documents"et ceux contenus dans les sous répertoires de "mes documents" avec l'explorateur, sous windows 98 mais je ne sais pas comment procéder. A défaut pouvoir récupérer la liste de mes fichiers dans word.
Merci d'avance pour votre aide
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
- Gestionnaire de fichiers - Télécharger - Gestion de fichiers
- Renommer des fichiers en masse - Guide
8 réponses
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 ::..
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
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
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 !
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
