[DEB]renommer un fichier

Hugh Torquemada,

En folâtrant sur ton clavier, tu nous as susurré :

Bonjour à tous,
j'ai besoin de renommer un fichier sur une disquette mais je n'ai pas
trouvé d'exemple .Voici le code

OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt" ' Définit le nouveau nom du
fichier.
Name OldName As NewName ' Renomme le fichier.

Le message d'erreur est fichier introuvable.
Ce que je voudrais , c'est écrire le nouveau nom sur la disquette
Merci de m'avoir consacré de votre temps

Indique le chemin complet de tes fichiers et pas seulement le nom du
fichier. Cela devrait suffire.
Il faudrait, pour être complet, vérifier si les fichiers existent, pour
savoir si le fichier d'origine existe et pour éviter d'écraser un fichier
existant.

--
Cordialement,

Aski

AntiSpamEdit, aide de K9 en français
http://h.dechily.free.fr/
http://h.charlier.de.chily.perso.cegetel.net/index.htm

OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt" ' Définit le nouveau nom du
ChDir "A:"
FileCopy OldName, NewName
Kill OldName
End If

Phil

Torquemada a écrit :

Bonjour à tous,
j'ai besoin de renommer un fichier sur une disquette mais je n'ai pas trouvé
d'exemple .Voici le code

OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt" ' Définit le nouveau nom du
fichier.
Name OldName As NewName ' Renomme le fichier.

Le message d'erreur est fichier introuvable.
Ce que je voudrais , c'est écrire le nouveau nom sur la disquette
Merci de m'avoir consacré de votre temps

Bonjour,

Essaies ceci:

Private Sub Command1_Click()
Dim OldName As String, NewName As String
OldName = Dir("a:")
Do While OldName <> ""
If OldName = "hipocaen.dat" Then
NewName = "a:hipocaen.txt"
Name "a:" & OldName As NewName
End If
OldName = Dir
Loop
End Sub

Torquemada a écrit :

Bonjour à tous,
j'ai besoin de renommer un fichier sur une disquette mais je n'ai pas trouvé
d'exemple .Voici le code

OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt" ' Définit le nouveau nom du
fichier.
Name OldName As NewName ' Renomme le fichier.

Le message d'erreur est fichier introuvable.
Ce que je voudrais , c'est écrire le nouveau nom sur la disquette
Merci de m'avoir consacré de votre temps

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonsoir,
Une de plus mais sans boucle :
Sub Renommer()
Dim OldName As String
Dim NewName As String

OldName = "a:hipocaen.dat"
NewName = "a:hipocaen.txt"

On Error Resume Next
If Dir(OldName) <> "" Then
Name OldName As NewName
Else
MsgBox "Le fichier '" & OldName & "' ne se trouve pas" & _
" sur la disquette !"
End If

If Err.Number <> 0 Then
MsgBox "Le lecteur 'A:' est vide !", _
vbCritical, _
"ERREUR DE LECTURE"
End If

End Sub

Hervé.

"Torquemada" <christophe.dhellinNOSPAM@wanadoo.fr> a écrit dans le message
news: OyzAHHnmFHA.3300@TK2MSFTNGP15.phx.gbl...

Bonjour à tous,
j'ai besoin de renommer un fichier sur une disquette mais je n'ai pas

trouvé

d'exemple .Voici le code

OldName = Dir("A:")
If OldName = "hipocaen.dat" Then
NewName = "hipocaen.txt" ' Définit le nouveau nom du
fichier.
Name OldName As NewName ' Renomme le fichier.

Le message d'erreur est fichier introuvable.
Ce que je voudrais , c'est écrire le nouveau nom sur la disquette
Merci de m'avoir consacré de votre temps