Renommer des fichiers sur un disque réseau

Salut la foule.
Je désire renommer une série de fichiers présents sur un des disques connectés à ma Freebox ... et je n'y arrive pas.
Depuis l'invite de commande, la fonction DOS

Code:

---

REN "\\FREEBOX\DISK1\DOSSIER1\MONFICHIER.txt" "NouveauNom.txt"

---

fonctionne parfaitement bien.
J'ai donc créé un fichier RenBat.bat contenant

Code:

---

REN %1 %2

---

et je tente de le lancer depuis Delphi :

Code:

---

ShellExecute(application.handle,'RUNAS',PChar('RenBat.bat'), PChar(hh),nil,sw_hide);

---

hh contient "\\FREEBOX\DISK1\DOSSIER1\MONFICHIER.txt" "NouveauNom.txt"

J'ai bien sûr essayé avec OPEN ou EXECUTE à la place de RUNAS.

Marche pô !

Une idée ?

Merci

et euh...tu as essayé avec RenameFile ?

Citation:

---

Envoyé par Paul TOTH

et euh...tu as essayé avec RenameFile ?

---

J'ai, bien entendu, commencé par là. RenameFiles avec des chemins UNC ne fonctionne pas du tout. Même si je mappe le lecteur, ça ne fonctionne pas.
J'ai pensé à un problème de permissions. Mais même en ouvrant tous les droits, rien à faire !
La fonction ShellExecute utilisée plus haut me retourne le code 42. Code inconnu au bataillon ! (les codes de retour de cette fonction vont de 0 à 32).

surprenant, RenameFile c'est juste un appel à MoveFile...

peut-être

Code:

---

RenameFile('\\FREEBOX\DISK1\DOSSIER1\MONFICHIER.txt', '\\FREEBOX\DISK1\DOSSIER1\NouveauNom.txt');

---

Citation:

---

Envoyé par Laskar

La fonction ShellExecute utilisée plus haut me retourne le code 42. Code inconnu au bataillon ! (les codes de retour de cette fonction vont de 0 à 32).

---

:koi:

Citation:

---

Envoyé par Microsoft

If the function succeeds, it returns a value greater than 32.

---

source
Et 42, c'est un joli code de retour positif en forme de clin d'œil, :mrgreen:

Je déterre ce sujet qui reste irrésolu.
Il m'est impossible de renommer un fichier (a fortiori une série de fichiers) sur le disque dur de ma Freebox à partir d'une application Delphi (RenameFile).
J'ai absolument tout essayé sans succès. Je n'ai aucune erreur mais l'opération ne se fait tout simplement pas.
Le plus étrange dans tout ça, c'est que le fichier VBS ci-dessous fonctionne très bien si je le lance en ligne de commande ...

Code:

---

1 2 3 4 5 6

SrcFile = Wscript.Arguments(0) DstFile = Wscript.Arguments(1)   Set shell = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile SrcFile , DstFile

---

... mais ne fait rien du tout si je le lance depuis Delphi avec un ShellExecute (le code retour de ce ShellExecute est 42, c'est-à-dire tout s'est bien passé !)

Quelqu'un a-t-il une piste ?
Merci.

Yep !

Et lancer l'application Delphi depuis la ligne de commande, as-tu tenté ? Des fois c'est plus parlant.

Bon ben ça y est.
Après quatre milliards de tentatives, j'ai résolu mon problème.
La solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var OldName, NewName : String; f : File;   Begin OldName := '\\Freebox\MonDisc\Categorie\MonFichier.avi'; NewName := '\\Freebox\MonDisc\Categorie\NouveauNom.avi';   AssignFile(f, OldName); Rename (f, NewName); end;

---

Comme toujours, la solution la plus simple est la meilleure !

Le dernier code provoque l'ouverture du fichier mais comme ça ne le lit pas ça doit pas être trop méchant, ne pas oublier de fermer le fichier proprement tout de même

et que faire Rename(file) ? il fait appel à l'API MoveFile() :D

sinon AssignFile n'ouvre pas le fichier, donc pas de problème