RENOMMER UN FICHIER

Question

Comment renommer un fichier sans passer par le wmi..??



ps: j'aimerais un exemple avec le fichier "fixhier.txt" reommer en "fichier.txt.txt"





merci...

fcampagne · Answer

en utilisant ceci:

          Dim  fichier as fileinfo = New FileInfo("c:\fichier.txt")



Tu obtient plusieurs m&#233;thodes concerant l'objet fichier qui te permettront surement de trouver ton bonheur

ShareVB · Answer

salut,



en VB : Name "fichier.txt" As "Fichier.txt.txt"

ShareVB

tekila_bandita · Answer

Ok, merci...

mais si je voudrais renommer (converitr), tout les fichiers .txt de mon ordi en .doc..

quelqu'u aurait il des codes du genre..???

violent_ken · Answer

Violent Ken

Il suffit de faire une recherche r&#233;cursive des fichiers de ton PC, lire l'extension de tes fichiers avec une command du style 

extension= UCase(right(NomFichier, Len(NomFichier) - InStrRev(NomFichier, ".")))

et faire

if extension="txt" then
   'on renomme
end if

tekila_bandita · Answer

Est-ce que tu pourrais me donner un exemple d'utilisation pr&#233;cise de
ton code pour,  avec TOUT les txt de l'ordi, en pps stp...

merci!

violent_ken · Answer

Violent Ken

Est-ce que tu pourrais me donner un exemple d'utilisation pr&#233;cise de ton code pour,  avec TOUT les txt de l'ordi, en pps stp...
En "pps" &#231;&#224; veut dire quoi ?

tekila_bandita · Answer

En pps signifie en fichier de type .pps...
les fichiers pps sont des fichiers de style .doc...
si tu veu, au lieu de pps, mets doc a la place..

merci en tout cas!

violent_ken · Answer

Violent Ken

Tiens c'est tout frais, je viens de le faire pour toi
N'oublie pas de d&#233;clarer la r&#233;f&#233;rence Microsoft scripting runtime

'voil&#224; le code
'place le dans un module par exemple
'utilisation : scanfolder "c:",true pour remplacer tout les fichiers *.txt de C:\ (et sous-dossiers) en *.pps

Dim e 'pour redonner la main
Dim extension As String, Eletemp As String
Dim fs As New FileSystemObject  'd&#233;clarer la r&#233;f&#233;rence microsoft scripting runtime


Public Function ScanFolder(FolderPath As String, Optional SubFold As Boolean = True) As Long
's'utilise commme suit :
'Scanfolder "c:",True
'"c:" d&#233;signe le r&#233;pertoire racine
'subfold (true or false) inclutou non les sous-dossiers
On Error Resume Next


    Dim Element As Variant
    Dim StrPath() As String
    ScanFolder = fs.GetFolder(FolderPath).Files.Count
    
    For Each Element In fs.GetFolder(FolderPath).Files
    
    e = e + 1   'pour redonner la main
    Ele = Element   'Element repr&#233;sente le nom du fichier scann&#233;


    If (e Mod 800) = 0 Then DoEvents    'redonne la main de tps en tps
    'test de l'extension de Element
    extension = UCase(Right(Ele, Len(Ele) - InStrRev(Ele, ".")))
    'a noter que l'extension est renvoy&#233;e en majuscules par Ucase
    'pour bien prendre en compte *.txt, *.TXT, *.tXt ...
    If extension = "TXT" Then
        'alors c'est un fichier powerpoint
        'on renomme
        Eletemp = Left$(Ele, Len(Ele) - 3)
        'eletemp repr&#233;sente le nom du fichier sans la terminaison pps
        'Name Ele As Eletemp & "pps"
        'renomm&#233; le fichier
        a = a
    End If
    
    Next Element
    
    If SubFold Then
    'si les sous-dossiers sont s&#233;lectionn&#233; (subfold=true)
    'on fait un recherche r&#233;cursive dans les dossiers du dossier actuel
        For Each Element In fs.GetFolder(FolderPath).SubFolders
            ScanFolder = ScanFolder + ScanFolder(Element.Path, SubFold)
        Next Element
    End If
End Function

'Voil&#224;, &#231;&#224; devrais marcher !

tekila_bandita · Answer

Désolé, mais il ne marche pas chez moi, je pense que c'est a cause que je n'ai pas vb6...
merci beaucoup en tout cas!
J' ai déja éssayé de récupérer une partie du code de i love you ( la partie qui infecte lé jpg...) et de la modifier mais je n'y arrive pas...
Donc si quelqu'un a un truc dans l'esprit...

violent_ken · Answer

Violent Ken

Non il marche. Mais tu vois cette ligne : 'Name Ele As Eletemp & "pps"
et bien enl&#232;ve simplement le guillement devant !
il faut la remplacer par : Name Ele As Eletemp & "pps"

R&#233;&#233;ssaye !
Dsl pour le guillemet, quand j'ai test&#233; j'avais mis cette ligne en commentaire pour &#233;viter de renommer mes fichiers, et j'ai oubli&#233; de l'enlever...

tekila_bandita · Answer

Nan, mais, meme, sa ne marche quand meme pas...
Car je pense que c'est peut etre ma version de Windows scripting host qui est trop vieille, mais je ne peux décllaré correctement mes variables...
ex:
dim a AS string           ne marchera pas car je ne peux allé plus loin que "a"
                          ensuite le code me dira "fin d'instruction attendu..." 


Donc merci quand meme!
Mais si tu arriverai a récupérer la partie de i love you est de la remplacé par txt est pps, ce serai déja pas mal!


MERCI!

RENOMMER UN FICHIER

11 réponses

Discussions similaires