[R] Création de dossier et renomage (x) si déjà présent

[Julien]

Bonsoir,

J'ai fais une petite fonction mais le résultat n'est (presque) pas ce que je voudrais faire.
Cette fonction regarde dans un dossier existant si le dossier donné est existant, si il existe je voudrais rajouter (x) ou x représente un chiffre (à la mode microsoft si vous préférez.

Voila la fonction :

Code : Tout sélectionner

Global $Path_destination = "D:\NOM - 05102011"

Func creation_dossier()
    If FileExists($Path_destination & "\") Then
        $i = 2
        While FileExists($Path_destination & "\")
            $Path_destination = $Path_destination & " (" & $i & ")"
            $i = $i + 1
        WEnd
    EndIf
    DirCreate($Path_destination & "\" & @UserName)
EndFunc   ;==>creation_dossier
 

Cette fonction dans l'état retourne (si le dossier existe), NOM - 05102011 (2) puis NOM - 05102011 (2) (2), etc...

Merci d'avance pour l'aide éventuelle.

(je me suis trompé de catégorie je crois)

[moi]

Code : Tout sélectionner

Global $Path_destination = "D:\NOM - 05102011"

Func creation_dossier()
    If FileExists($Path_destination & ".ink") Then
        $i = 2
        While FileExists($Path_destination & ".ink")
            $Path_destination = "D:\NOM - 05102011 (" $i ")"
            $i = $i + 1
        WEnd
    EndIf
    DirCreate($Path_destination & "\" & @UserName)
EndFunc   ;==>creation_dossier

?

[Julien]

Bonsoir,

merci d'avoir répondu. J'ai mis un peu de temps à comprendre le texte mais j'ai finalement réussi.
J'ai pas compris le .lnk mais j'ai modifié comme ceci :

Code : Tout sélectionner

Global $Path_destination

Func creation_dossier()
    Local $temp_destination = "NOM - 05102011"
    Local $temp1_destination
    If FileExists(GUICtrlRead($Input_destination) & "\" & $temp_destination & "\") Then
        $i = 2
        While FileExists(GUICtrlRead($Input_destination) & "\" & $temp1_destination & "\")
            $temp1_destination = $temp_destination & " (" & $i & ")"
            $i = $i + 1
        WEnd
        $Path_destination = GUICtrlRead($Input_destination) & "\" & $temp1_destination
    Else
        $Path_destination = GUICtrlRead($Input_destination) & "\" & $temp_destination
    EndIf
    DirCreate($Path_destination & "\" & @UserName)
EndFunc   ;==>creation_dossier
 

Ce qui m'a fait réalisé que c'est pas comme ça que je voulais procéder.

Merci pour l'aide

[moi]

.ink est l'extension d'un dossier

[Tlem]

Personnellement, j'utiliserais ceci :

Code : Tout sélectionner

Creation_Dossier("D:\NOM - 05102011")

Func Creation_Dossier($sPath)
    local $Count = 1
    If FileExists($sPath & "\") Then
        While FileExists($sPath & " (" & $Count & ")" & "\")
            $Count += 1
        WEnd
        Return DirCreate($sPath & " (" & $Count & ")" & "\" & @UserName)
    Else
        Return DirCreate($sPath & "\" & @UserName)
    EndIf
EndFunc   ;==>creation_dossier

Ce qui permettra d'avoir la vraie structure Microsoft (Dossier, Dossier (1), Dossier (2), etc ...)

[Julien]

Merci pour l'aide, j'ai corrigé et cela fonctionne mieux.

[mikell]

.ink est l'extension d'un dossier

Oui, c'est l'extension du dossier où tu gardes les cartouches d'encre de réserve pour l'imprimante ^^

Par contre .lnk (pour "link") c'est l'extension des raccourcis Windows