[R] Comment renommer un dossier dont le nom est inconnu ?

[ELGAMALI]

Bonjour
Comment faire pour renommer un dossier lorsque son nom est inconnu?

DirMove(@TempDir &"\test\nom dossier inconnu", @TempDir&"\test\nouveau nom dossier", 1)

Merci pour votre aide

[GhostLine]

Mettre dans une array la totalité des répertoires contenus dans @tempdir, et procéder par élimination pour définir le nom du répertoire inconnu ? Après, si toi même tu n'as aucun moyen de savoir quel est le bon répertoire, ca va être dur de demander à un programme de le savoir à ta place

[ELGAMALI]

Soyez sérieux

[GhostLine]

Je ne suis on ne peut plus sérieux ... pourrais-tu être un peu plus précis dans ton énoncé ? Par exemple, le répertoire @TempDir &"\test\" contient-il 1, 10, 20 répertoires ? Sont ils créés et nommés de manière aléatoire ? Leur contenu peut il permettre d'identifier s'ils sont ou non des candidats pour le renommage ?

En l'état, pour moi, ta question revient à dire que tu possèdes une voiture que tu n'as jamais vu et dont tu ne sais rien, et tu nous demandes de te donner une méthode systématique pour en trouver les clefs ...

[ELGAMALI]

Cher GhostLine
J’ai bien précisé dans ma demande (Comment faire pour renommer un dossier lorsque son nom est inconnu?) que le nombre de répertoire = un seul dossier, en plus son non est inconnu (répertoires créés et nommés de manière aléatoire et en masse).
Cordialement

[GhostLine]

Ok !

Dans ce cas, je pense à :

$a_renommer = _FileListToArray(@TempDir &"\test" , "*." ,2)

$a_renommer[1] devrait contenir le nom de ton répertoire.

J'espère avoir bien compris ta demande !

[ELGAMALI]

Pour automatiser mon application à la masse des dossiers voir:
DirMove(@TempDir &"\test\nom dossier inconnu", @TempDir&"\test\nouveau nom dossier", 1)
soit une solution qui peut être équivalente à:
DirMove(@TempDir &"\test\*.*", @TempDir&"\test\nouveau nom dossier", 1)
A+

[ELGAMALI]

J’ai bien précisé dans ma demande (Comment faire pour renommer un dossier lorsque son nom est inconnu?) que le nombre de répertoire = un seul dossier, en plus son non est inconnu (répertoires créés et nommés de manière aléatoire et en masse).
voir script ci-dessous:
DirMove(@TempDir &"\test\nom dossier inconnu", @TempDir&"\test\nouveau nom dossier", 1)
soit une solution qui peut être équivalente à:
DirMove(@TempDir &"\test\*.*", @TempDir&"\test\nouveau nom dossier", 1)

Merci à vous tous

[jguinch]

Code : Tout sélectionner

RunWait(@ComSpec & ' /c mv -f "' & $sSourceFile & '" "' & $sDestFile & '"')

[mikell]

le nombre de répertoire = un seul dossier, en plus son non est inconnu (répertoires créés et nommés de manière aléatoire et en masse).

C'est pas clair
Le dossier à nom inconnu est tout seul dans son répertoire ? on connaît le nom de ce répertoire ? à quoi ressemble l'arborescence ?

[ELGAMALI]

Bonsoir jguinchard
Merci pour votre repense
Ce que je cherche c'est de renommé des répertoires non des fichiers.
J'ai testé votre commande, sa marche pas!
Voir l'exemple suivant:
DirCopy(@TempDir&"\Test\DVDVIDEO (K)", @TempDir&"\CopieDVD", 1) la sa marche

DirCopy(@TempDir&"\Test\DVDVIDEO *.*", @TempDir&"\CopieDVD", 1) la sa marche pas

(K)= nom du lecteur DVD/USB/DISQUE..., il peut être A: B: C: etc

Par contre le nom du lecteur est facile à trouver (DriveGetLabel): DVDVIDEO
A+

[jguinch]

Ce que je cherche c'est de renommé des répertoires non des fichiers.

Oui, c'est bon on a tous compris là C'est pour cette raison que j'ai répondu ça.
La commande mv permet justement de renommer un répertoire en utilisant l'astérisque.
Par contre, j'ai oublié de préciser, pour certain(s) que la commande mv n'existe pas dans le shell sous Windows XP.

[TopXm]

Hello

Perso, je me suis fait cette petite fonction

► Afficher le texteRenommer dossier

Code : Tout sélectionner

Local $Source = 'C:\Users\TopXm\Desktop\Dev\ToolsDiag\Test\Folder_Test'
Local $Cible = 'C:\Users\TopXm\Desktop\Dev\ToolsDiag\Test\Folder_Test_Rename'

_RenameFolder($Source, $Cible)

ConsoleWrite('error = ' & @error & @CRLF)

Func _RenameFolder($FolderSource, $FolderCible)
    Local $oService = ObjGet('winmgmts:\\.\root\cimv2')
    Local $oSelect = 'Select * From Win32_Directory Where Name = "' & StringReplace($FolderSource, '\', '\\')  & '"'

    If Not IsObj($oService) Then
        Return SetError(1, 0, '')
    EndIf

    Local $oItems = $oService.ExecQuery($oSelect)
    If Not IsObj($oItems) Then
        Return SetError(2, 0, '')
    EndIf

    Local $oFolder
    Local $NewNames = StringReplace($FolderCible, '\', '\\')

    For $oFolder In $oItems
        $oFolder.Rename($NewNames)
    Next

    If Not FileExists($FolderCible) Then
        Return SetError(3, 0, '')
    EndIf
EndFunc

 

NB : Il faut bien entendu la même racine sur les noms de dossiers
NB 1 : J'ai tout capté pour les noms de dossiers inconnus ...

[ELGAMALI]

Bonsoir TopXm
Voici une fonction courte et simple qui renomme les dossiers. La votre marche aussi bien mais pas pour mon cas (noms de dossiers inconnus).

► Afficher le texte

Func Renemme()
Local $sFldr1 = @TempDir&"\Test\"
DirCopy($sFldr1, @TempDir&"\CopieDVD", 1)
DirRemove($sFldr1, 1)
EndFunc

Merci

[TopXm]

Re

En effet un DirCopy() fonctionne mais si le dossier est énorme, à moi le temps d'exécution

[ELGAMALI]

Bonsoir TopXm
je regrette
Le problème est la:

► Afficher le texte

Local $Source = @TempDir&'\Test'
Local $Cible = @TempDir&'\Test\*.*\CopieDVD'

[PandiPanda]

Bonsoir ceci peut etre ?

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>

Local $Source = @TempDir&"\Test\"
Local $newName = "NouveauNom"
Local $Cible = @TempDir&'\Test\'&$newName

renameInconnu($Source,$Cible)

Func renameInconnu($src,$dest)
    Local $list = _FileListToArray($src,"*",2)
    If Not @error Then
        ; un seul dossier <-> donc [1]
        DirMove($src&$list[1],$dest,1)
    EndIf
EndFunc

[ELGAMALI]

Bonjour PandiPanda
Le forum - AutoIt Français: des hommes au service des hommes.

Bravo PandiPanda, c'est OK.
Merci à vous tous
_____________________________________________
Quand-on-veut-on-peut:
Il faut jamais dire non, c'est impossible avec AutoIt. Là vous avez tort: AutoIt est imbattable il faut le manier avec allégresse et du bon cens. La solution est devant tes yeux mes tu ne la vois pas.
EL GAMALI Abdennasser