Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Récupérer les métadonnées de fichiers externes ?

2 réponses
Avatar
gauso
Bonsoir,

Quelqu'un sait-il s'il est possible - avec du code vba - d'aller
explorer un r=E9pertoire et de ramener non seulement les noms des
fichiers (ce que je fais d=E9j=E0 avec le code ci-dessous), mais =E9galemen=
t
leurs caract=E9ristiques (celles qui s'affichent quand on fait : clic-
droit/propri=E9t=E9s/onglet d=E9tails fichiers) : date de cr=E9ation du
fichier, format, poids... ?

Par avance, merci de votre int=E9r=EAt,
Sonia.

Set oFso =3D CreateObject("Scripting.FileSystemObject")
sChemin =3D "I:\" & Me![Abreviation] & "\" & Me![Refobjet] & "\" & Me!
[RepPhase]
sTmp =3D ""
Lister sChemin, 0
Me![Description] =3D Me![Description] & vbCrLf & sTmp

Set oFso =3D Nothing

2 réponses

Avatar
3stone
Salut,


gauso wrote:
Bonsoir,

Quelqu'un sait-il s'il est possible - avec du code vba - d'aller
explorer un répertoire et de ramener non seulement les noms des
fichiers (ce que je fais déjà avec le code ci-dessous), mais également
leurs caractéristiques (celles qui s'affichent quand on fait : clic-
droit/propriétés/onglet détails fichiers) : date de création du
fichier, format, poids... ?

Par avance, merci de votre intérêt,
Sonia.

Set oFso = CreateObject("Scripting.FileSystemObject")
sChemin = "I:" & Me![Abreviation] & "" & Me![Refobjet] & "" &
Me! [RepPhase]
sTmp = ""
Lister sChemin, 0
Me![Description] = Me![Description] & vbCrLf & sTmp

Set oFso = Nothing




Regarde ceci est les articles voisins :
http://www.self-access.com/cms/vb/scripting-runtime/scripting-fichiers-exemples/

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
gauso
Bonsoir Pierre,

J'ai en effet trouvé ce qui me fallait à l'adresse indiquée (et pour
le moment j'ai réussi à me débrouiller avec le code... ),

Merci beaucoup à toi,
Bonne soirée,
Sonia.



Regarde ceci est les articles voisins :http://www.self-access.com/cms/vb/ scripting-runtime/scripting-fichier...

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)