Discussion :

[Laskar]

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 :

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

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

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

Code :

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

REN %1 %2

et je tente de le lancer depuis Delphi :

Code :

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

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

[Paul TOTH]

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

[Laskar]

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).

[Paul TOTH]

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

peut-être

Code :

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

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

[Jipété]

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).

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,

[Laskar]

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 :

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

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.

[Jipété]

Yep !

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

[Laskar]

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

Code :

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

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 !

[ShaiLeTroll]

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

[Paul TOTH]

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

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