Bonjour,
Je voudrais faire un script pour compter le nombre de caractères des noms de
fichiers dans les répertoires.
De sorte que j'obtienne un affichage de type :
nomdefichier.xls : 16
nomdunautrefichier.doc : 22
Éventuellement des noms de répertoires aussi...
J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les
caractères accentués des noms de fichiers, mais je ne parviens pas à trouver
la solution.
Merci d'avance pour vos propositions
Dan
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Georges MAUREL
Bonjour, Essayes le code qui suit
v_folder = "c:temp" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(v_folder) Set fc = f.Files
For Each fichier in fc v_long=len(fichier.name) wscript.echo fichier.name + " " + cstr(v_long) Next
Cordialement Georges MAUREL
"Dan" a écrit dans le message de news:
Bonjour, Je voudrais faire un script pour compter le nombre de caractères des noms de
fichiers dans les répertoires. De sorte que j'obtienne un affichage de type : nomdefichier.xls : 16 nomdunautrefichier.doc : 22 Éventuellement des noms de répertoires aussi... J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les caractères accentués des noms de fichiers, mais je ne parviens pas à trouver
la solution. Merci d'avance pour vos propositions Dan
Bonjour,
Essayes le code qui suit
v_folder = "c:temp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(v_folder)
Set fc = f.Files
For Each fichier in fc
v_long=len(fichier.name)
wscript.echo fichier.name + " " + cstr(v_long)
Next
Cordialement
Georges MAUREL
"Dan" <Dan@discussions.microsoft.com> a écrit dans le message de
news:CE64E2EA-EE27-4E44-A2FE-F06864ADB6DB@microsoft.com...
Bonjour,
Je voudrais faire un script pour compter le nombre de caractères des noms
de
fichiers dans les répertoires.
De sorte que j'obtienne un affichage de type :
nomdefichier.xls : 16
nomdunautrefichier.doc : 22
Éventuellement des noms de répertoires aussi...
J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les
caractères accentués des noms de fichiers, mais je ne parviens pas à
trouver
la solution.
Merci d'avance pour vos propositions
Dan
v_folder = "c:temp" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(v_folder) Set fc = f.Files
For Each fichier in fc v_long=len(fichier.name) wscript.echo fichier.name + " " + cstr(v_long) Next
Cordialement Georges MAUREL
"Dan" a écrit dans le message de news:
Bonjour, Je voudrais faire un script pour compter le nombre de caractères des noms de
fichiers dans les répertoires. De sorte que j'obtienne un affichage de type : nomdefichier.xls : 16 nomdunautrefichier.doc : 22 Éventuellement des noms de répertoires aussi... J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les caractères accentués des noms de fichiers, mais je ne parviens pas à trouver
la solution. Merci d'avance pour vos propositions Dan
Dan
Merci pour ce code. Je l'ai testé, c'est ok. Je vais essayer de l'intégrer dans un fichier vbs exploitable directement depuis l'explorateur. Cordialement Dan
Bonjour, Essayes le code qui suit
v_folder = "c:temp" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(v_folder) Set fc = f.Files
For Each fichier in fc v_long=len(fichier.name) wscript.echo fichier.name + " " + cstr(v_long) Next
Cordialement Georges MAUREL
"Dan" a écrit dans le message de news:
Bonjour, Je voudrais faire un script pour compter le nombre de caractères des noms de
fichiers dans les répertoires. De sorte que j'obtienne un affichage de type : nomdefichier.xls : 16 nomdunautrefichier.doc : 22 Éventuellement des noms de répertoires aussi... J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les caractères accentués des noms de fichiers, mais je ne parviens pas à trouver
la solution. Merci d'avance pour vos propositions Dan
Merci pour ce code.
Je l'ai testé, c'est ok.
Je vais essayer de l'intégrer dans un fichier vbs exploitable directement
depuis l'explorateur.
Cordialement
Dan
Bonjour,
Essayes le code qui suit
v_folder = "c:temp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(v_folder)
Set fc = f.Files
For Each fichier in fc
v_long=len(fichier.name)
wscript.echo fichier.name + " " + cstr(v_long)
Next
Cordialement
Georges MAUREL
"Dan" <Dan@discussions.microsoft.com> a écrit dans le message de
news:CE64E2EA-EE27-4E44-A2FE-F06864ADB6DB@microsoft.com...
Bonjour,
Je voudrais faire un script pour compter le nombre de caractères des noms
de
fichiers dans les répertoires.
De sorte que j'obtienne un affichage de type :
nomdefichier.xls : 16
nomdunautrefichier.doc : 22
Éventuellement des noms de répertoires aussi...
J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les
caractères accentués des noms de fichiers, mais je ne parviens pas à
trouver
la solution.
Merci d'avance pour vos propositions
Dan
Merci pour ce code. Je l'ai testé, c'est ok. Je vais essayer de l'intégrer dans un fichier vbs exploitable directement depuis l'explorateur. Cordialement Dan
Bonjour, Essayes le code qui suit
v_folder = "c:temp" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(v_folder) Set fc = f.Files
For Each fichier in fc v_long=len(fichier.name) wscript.echo fichier.name + " " + cstr(v_long) Next
Cordialement Georges MAUREL
"Dan" a écrit dans le message de news:
Bonjour, Je voudrais faire un script pour compter le nombre de caractères des noms de
fichiers dans les répertoires. De sorte que j'obtienne un affichage de type : nomdefichier.xls : 16 nomdunautrefichier.doc : 22 Éventuellement des noms de répertoires aussi... J'ai fait des essais en partant d'un fichier VBS de JCB qui remplace les caractères accentués des noms de fichiers, mais je ne parviens pas à trouver
la solution. Merci d'avance pour vos propositions Dan
