;==============================================================================
; Nom : CopyBackup ; But : Copie le fichier passé en paramêtre sous le nom ; <fichier><_aaaammjj_hhmm>.<ext> ; Date : 15/01/2008 ; Auteur: Fabrice Vado ; ; 0.1 : 23/12/2005 Création ; 0.2 : 15/01/2008 Fin du code ;============================================================================== Dim $iLoop, $sClipboard if $CmdLine[0] > 0 Then $NomFichier = $CmdLine[1] $datehour = "_" & @year & @mon & @mday & "_" & @hour & @min $NomFichierDest = FileGetName($NomFichier) & $datehour & "." & FileGetExtension($NomFichier) msgbox (0, "", $NomFichierDest) FileCopy ( $NomFichier, $NomFichierDest ) endif Func FileGetName($pFileName) ; Retourne le nom du fchier sans l'extension $sTemp = $pFileName $ipos = StringInStr($pFileName, ".") If $ipos > 0 Then $sTemp = StringLeft($pFileName, $ipos - 1) EndIf Return $sTemp EndFunc Func FileGetExtension($pFileName) ; Retourne l'extension du fchier $sTemp = $pFileName $ipos = StringInStr($pFileName, ".") If $ipos > 0 Then $sTemp = StringMid($pFileName, $ipos + 1) EndIf Return $sTemp EndFunc
Sa ka fèt = Comment va ? (créole)
Merci de passer sur mon petit bout de web
Read, Take, Share... Enjoy 
--
Fabio (20090317)
_texte___texte__@@texte@@''texte|langue|source''>texte[texte|URI|langue|titre]((image|texte alternatif|alignement))texte!titre1, !!titre2, !!!titre3, etc.-texte ou *texte#texte;titre:définition??acronyme|titre??[ESPACE]texte ou {{{texte}}}==== ou ---- (au moins 4)\