Discussion :

[yaya54]

Bonjour,

Je dispose d'un fichier texte contenant une liste de fichiers avec leur chemin complet du type :

C:\WINDOWS\system\test.doc
C:\Mes programmes\toto.exe

J'aimerais "nettoyer" ce fichier et ne garder que les noms de fichiers pour qu'au final j'ai :

test.doc
toto.exe

Comment faire ?

Merci :

[pc75]

Bonjour,

Tu lis séquentiellement ton fichier texte. Pour chaque ligne lue, tu extraits le nom de fichier que tu écris dans un nouveau fichier non ?

[yaya54]

Certes, mais comment faire

Moi y'en a être tout nouveau en VB et j'ai un projet de taré

[pc75]

Re,

Pour ouvrir et lire ton fichier, regarde du côté de FileSystemObject.
Pour extraire le nom du fichier, tu as les fonctions Mid() et InStr().

Fais une petite recherche, il y a plein d'exemples sur ce sujet.

Dès que tu as une ébauche de code, dis nous si tu rencontres alors des problèmes.

[yaya54]

Merci du tuyau, je vais essayer de me démeler les pattes avec ça...

[leroissejp]

Bonjour,
Essye cette méthode.

Dans un Module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Sub CopierFichier(Origine As String, Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.CopyFile Origine, Destination
   Set fs = Nothing
End Sub

Dans la Form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Command1_Click()
CopierFichier "C:\WINDOWS\system\test.doc", "c:\test.doc"
Kill ("C:\WINDOWS\system\test.doc")
    MsgBox "Fichier copié", vbInformation, "Copie de fichier"
 
CopierFichier "C:\Mes programmes\toto.exe", "c:\toto.exe"
Kill ("C:\Mes programmes\toto.exe")
    MsgBox "Fichier copié", vbInformation, "Copie de fichier"
End Sub

jpleroisse

[yaya54]

En fait plutôt que de reprendre ce fichier texte, il serait peut-être plus judicieux de le créer correctement dès le début. Il est créé grace à la fonction FileSearch. Le paramètre .FoundFiles(i) contient le chemin complet du fichier. On ne peut pas simplement lui demander qu'il retourne le nom du fichier uniquement ?

[pc75]

Re,

Pour extraire le nom :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Fichier = C:\Mes programmes\toto.exe
Fichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)

C'est ce que tu cherches ?

[SfJ5Rpw8]

Correction manque "" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Fichier = "C:\Mes programmes\toto.exe"
Fichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)

[yaya54]

C'est tout à fait ce qu'il me fallait merci !