Renommer un fichier en Vb

[Laubean]

Salut,

je cherche un moyen pour renommer un fichier a partir de VB, c'est a dire que j'ai une base Access que j'ouvre, et celle-ci doit etre renommee lors de l'execution du programme.

Et la j'ai besoin d'aide!!!!

Merci.

[jeanbi]

sur mon site, j'ai mis un exemple et une fonction qui permettent de copy suuprimer et renommer un fichier etc...

je t'envoie un exemple

a+

[leneuf22]

Voilà une solution :

 

dim fso

set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile "c:truc.mdb", "c:fichierrenommé.mdb"

 

Sinon il y a la fonction MoveFile dans kernel32.dll mais je n'ai pas la syntaxe exacte.

[leneuf22]

Voilà LA solution !

 

Dans les déclarations :

Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

 

Dans ta Sub ou Function :

MoveFile "C:machin.mdb", "C:truc.mdb"

[jeanbi]

leneuf22 regarde sur mon site l'exemple pour copier, supprimer, etc + puissant que ta cde

a+

[leneuf22]

Oui j'ai vu ton exemple (laubean me l'a envoyé)

C'est une usine à gaz ton code ! Je ne vois pas comment faire plus simple qu'avec le kernel. (comment ça, il est plus puissant ?)

 

En plus dans VB il y a déjà une fonction intégrée pour la copie de fichiers

FileCopy(Source As String, Destination As String)

 

Tiens voilà un lien de laubean sur les API : http://www.vbapi.com/ref/funca.html

et aussi :

http://www.visualbasic-archiv.de/vbapi/_ka...kat=Dateisystem

[jeanbi]

Tu n'a pas tout lu, filecopy est incapable de copier le contenu d'un repertoire. il est certain que pour copier un fichier aucun souci mais essaye voir de copier un repertoire avec ses sous repertoire...

a+

[leneuf22]

Ah oui, FileCopy c'est pour copier des fichiers, j'avais pas pensé à ce problème !

On peut utiliser la Scripting Runtime Library mais c'est un peu lourd, ta technique est la meilleure dans ce cas-là.

 

N'empêche, ya pas plus simple que MoveFile pour renommer

 

Et pour supprimer, toujours dans kernel32.dll, il y a les fonctions DeleteFile et RemoveFolder !

Un vrai petit trésor ce kernel32 !

[leneuf22]

Pour renommer un fichier en VB, il y a un truc super que je viens de découvrir :

 

Name "c:AncienNom.ext" As "c:NouveauNom.ext"

 

 

Et pendant qu'on y est...

 

Pour supprimer un fichier :

Kill ("c:fichier.ext")

 

Pour supprimer un dossier :

RmDir "c:dossier"

 

Pour créer un dossier :

MkDir "c:dossier"

[jeanbi]

Ces commandes la ont toujours existes sous VB.

a+