Script récupérer valeur et chemin de différents fichiers texte.
Résolu/Fermé
blodka
Messages postés
36
Date d'inscription
jeudi 20 mai 2010
Statut
Membre
Dernière intervention
29 mai 2017
-
10 janv. 2017 à 11:50
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 11 janv. 2017 à 16:20
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 11 janv. 2017 à 16:20
A voir également:
- Script récupérer valeur et chemin de différents fichiers texte.
- Script vidéo youtube - Guide
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Wetransfer gratuit fichiers lourd - Guide
2 réponses
yg_be
Messages postés
22720
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 avril 2024
1 476
10 janv. 2017 à 22:06
10 janv. 2017 à 22:06
Tu es prêt à faire cela en VBA? Tu as de l'expérience avec que langage?
blodka
Messages postés
36
Date d'inscription
jeudi 20 mai 2010
Statut
Membre
Dernière intervention
29 mai 2017
7
11 janv. 2017 à 15:46
11 janv. 2017 à 15:46
Je connais beaucoup mieux le batch :) mais si avec VBA c'est possible je vais regarder ce que je trouve sur le net et voir pour apprendre les bases avant toute chose !!!! Je reviendrais par ici une fois fait :) J'ai de l'expérience avec pas mal de différent langages, j'avais commencé une école de programmation et je me remet dedans petit à petit :p
yg_be
Messages postés
22720
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 avril 2024
1 476
11 janv. 2017 à 16:20
11 janv. 2017 à 16:20
Juste un exemple:
Option Explicit Sub testdossier() Dim fso As Scripting.FileSystemObject Dim dossier As Scripting.Folder Dim chemin As String chemin = "c:/data/temp" Set fso = New FileSystemObject If fso.FolderExists(chemin) Then Set dossier = fso.GetFolder(chemin) Call explorer_dossier(dossier) End If End Sub Private Sub explorer_dossier(dossier As Scripting.Folder) Dim sousdossier As Scripting.Folder Dim fichier As Scripting.File For Each sousdossier In dossier.SubFolders Call explorer_dossier(sousdossier) Next sousdossier For Each fichier In dossier.Files Debug.Print fichier.Path, fichier.Size Next fichier End Sub