Créer des fichiers texte en leur donnant le nom de fichier existantsRésolu

Question

Bonjour,

Imaginons que mon dossier C:\Toto contiennent les fichers AA.doc, BB.rar et CC.avi. J'aimerais qu'un script vbs me crée dans le dossier D:\Toto_2 les fichiers vides AA.TXT, BB.TXT et CC.TXT. Est-ce possible ?

acive · Accepted Answer

Bonjour Fraise,

Au lieu de faire:
for each objFichier in objDossier.Files
    monTbl=split(objFichier.Name,".")
    Fichiers_A=monTbl(0)
    Fichiers_B=monTbl(1)
    if Fichiers_B= "rar" then
       Fichiers_A=Fichiers_A & ".txt"
       objFSO.CreateTextFile (Rep2 & Fichiers_A)
    end if
next 

Tu fais:
for each objFichier in objDossier.Files
    monTbl=split(objFichier.Name,".")
    Fichiers_A=monTbl(0)
    Fichiers_B=monTbl(1)
    
    Fichiers_A=Fichiers_A & ".txt"
    objFSO.CreateTextFile (Rep2 & Fichiers_A)
next 

A tester...

Cordialement

CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Bonjour,
Quel est le problème ?

Et pourqupoi un script VBS alors que VB6 fait tout cela parfaitement
La fonction Dir te permet de lire le contenu d'un répertoire
La fonction MkDir te permet de créer un répertoire
Le seul fait d'ouvrir un fichier "For Output" avec la méthode open et de le refermer crée un fichier vide
Ouvre ton aide VB6 sur chacun des mots que j'ai mis en rouge.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Bonjour,

Ce que tu demandes est simple mais : tu programmes dans quel langage ???

Cordialement, Joe.

cs_fraise2 · Answer

Merci pour ces réponses rapides !

Je ne suis vraiment pas programmeur. Je suis enseignant, je fais travailler mes élèves sur l'ordinateur le plus possible et je tente de me débrouiller pour arriver à produire des scripts pour diverses tâches me simplifiant la vie. Je commence à bien me débrouiller en batch, je tente d'apprivoiser le vbs.

Voilà. Je n'ai pas de début de script, j'espère qu'on va m'aider.

Merci.

ucfoutu · Answer

Sous VBS, utilise FileSystemObject (FSO)
après lecture de ces deux liens :
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/filesfolders/folders/
et
http://www.commentcamarche.net/contents/vbscript/vbs-fso.php3
FSO ne devrait plus avoir le moindre secret pour toi !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_fraise2 · Answer

Grand merci, je m'y mets aussitôt.

cs_fraise2 · Answer

Bonjour à nouveau,

Voilà, j'ai obtenu ceci :

------------------------------------------------------------------
Dim monTbl, Fichiers_A, Fichiers_B, Rep1, Rep2, objFSO, objFSOText
set objFSO = CreateObject("Scripting.FileSystemObject")

Rep1="./"
Rep2="C:\Toto"
set objDossier=objFSO.GetFolder(Rep1)

for each objFichier in objDossier.Files  

        monTbl=split(objFichier.Name,".")
        Fichiers_A=monTbl(0)     
        Fichiers_B=monTbl(1)
        if Fichiers_B= "rar" then
                Fichiers_A=Fichiers_A & ".txt"
                objFSO.CreateTextFile (Rep2 & Fichiers_A)

        end if
next

------------------------------------------------------------------

Mais je n'ai pas compris comment remplacer l'extension .rar par toutes extensions (genre *.*) dans cette ligne : [if Fichiers_B= "rar" then].

Quelque chose me dit que c'est super simple pourtant...

cs_fraise2 · Answer

Ben oui, c'est exactement ça. Suffisait de retirer cette ligne inutile.

Merci beaucoup, j'apprécie votre aide.

Créer des fichiers texte en leur donnant le nom de fichier existants

8 réponses

Votre réponse

Discussions similaires