Discussion :

[angeld]

Bonjour,

Ne vous moquez pas stp, je suis une bille en VB.

En fait je cherche à faire un petit exécutable VB pour renommer trois fichiers txt avec un nom définis (exemple : Lyon.txt ; Paris.txt ; Marseille.txt) en (LyonL.txt ; ParisP.txt ; MarseilleM.txt)

Les fichiers seraient déposés dans un répertoire (ex: c:\test\..)

Le but serait de contrôler dans un premier temps l’existence des trois fichiers avant de les renommer.

Pour les renommer je sais qu’il faut faire ainsi, mais pour le reste, je suis perdu.

Code :

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

1
2
3
My.Computer.FileSystem.RenameFile("C:\test\Lyon.txt", "LyonL.txt")
My.Computer.FileSystem.RenameFile("C:\test\Paris.txt", "ParisP.txt")
My.Computer.FileSystem.RenameFile("C:\test\Marseille.txt", "MarseilleM.txt")

Merci de votre aide.

[nasty]

Bonjour

Pour tester l'existence d'un fichier

Code :

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

1
2
3
 If System.IO.File.Exists("path du fichier") Then
[...]
End If

Nasty

[angeld]

L'ideal serait d'utiliser une procédure ou une fonction ??

ça pourrais donner ça pour une procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub RenommerFichier
 
If System.IO.File.Exists("C:\test\Lyon.txt") Then
My.Computer.FileSystem.RenameFile("C:\test\Lyon.txt", "LyonL.txt")
End If
 
If System.IO.File.Exists("C:\test\Paris.txt") Then
My.Computer.FileSystem.RenameFile("C:\test\Paris.txt", "ParisP.txt")
End If
 
If System.IO.File.Exists("C:\test\Marseille.txt") Then
My.Computer.FileSystem.RenameFile("C:\test\Marseille.txt", "MarseilleM.txt")
End If
 
 
End Sub

Dans le cas ou le fichier n'existerais pas pourrais-ton mettre par exemple :

Code :

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

1
2
3
4
If System.IO.File.Exists("C:\test\Lyon.txt") Then
My.Computer.FileSystem.RenameFile("C:\test\Lyon.txt", "LyonL.txt") Else
MsgBox("Le fichier Lyon.txt n'existe pas dans repertoire test")
End If

d'après vous quelle est la meilleure façon de gérer la condition dans le programme que je veux faire ?

Code :

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

1
2
3
IF...THEN
ELSE
END IF

ou :

Code :

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

1
2
3
4
5
6
7
Try
'Instruction susceptible de provoquer une erreur.
Catch
'Traitement de l'erreur
Finally
'Code toujours exécuté
End Try

Merci de votre aide.

[champomy62]

salut,

je pense qu'une fonction qui renvoie un booléen aurait été mieux, non ?

Edit : Tu peux pas renommer un fichier s'il n'exite pas !!!!

Code :

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

1
2
3
if not system.io.file.exist(monfichier) then
   msgbox("le fichier n'exsite pas ")
end if

[aus3004]

Salut, pour renommer comme tu fais mais de manière automatique :

Code :

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

1
2
3
4
5
6
7
For Each files In My.Computer.FileSystem.GetFiles("C:\Dossier", FileIO.SearchOption.SearchAllSubDirectories, "*txt")
            Dim Fi As New System.IO.FileInfo(files)
            Dim nomfichier As String = GetFileNameWithoutExtension(files) 'Le nom sans l'extension
            Dim monChar0 As Char 'La 1ère lettre du mot
            monChar0 = nomfichier.Chars(0) 'Pour ajouter le P de Paris à la fin de Paris : ParisP.txt
            My.Computer.FileSystem.RenameFile(files, nomfichier + monChar0 + Fi.Extension)
        Next

bon dev

[angeld]

Salut, pour renommer comme tu fais mais de manière automatique :

Code :

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

1
2
3
4
5
6
7
For Each files In My.Computer.FileSystem.GetFiles("C:\Dossier", FileIO.SearchOption.SearchAllSubDirectories, "*txt")
            Dim Fi As New System.IO.FileInfo(files)
            Dim nomfichier As String = GetFileNameWithoutExtension(files) 'Le nom sans l'extension
            Dim monChar0 As Char 'La 1ère lettre du mot
            monChar0 = nomfichier.Chars(0) 'Pour ajouter le P de Paris à la fin de Paris : ParisP.txt
            My.Computer.FileSystem.RenameFile(files, nomfichier + monChar0 + Fi.Extension)
        Next

bon dev

En fait, les noms de fichier c'était un exemple car le nom de départ ne sera plus le même qu'à l'arrivée : ex : Lyon.txt --> Toto.txt

merci pour vos réponses qui permettent de voir que plusieurs solutions sont possibles.