1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
Sub test()
ChangementMDP "C:\TravailJPcheck", "pioupi?", "Pioupiou\o/"
End Sub
Function ChangementMDP(ByVal Mondossier As String, ByVal AncienMotdePasse As String, ByVal NouveauMotdePasse As String) As Boolean
'fonction de récupération des fichiers dans un répertoire, copie des infos dans la table T_Fichiers_mdb
Dim ObjFSO, ListRepertoires, ListSousRep, ListFichiers, MonRep, MonFich
Dim fso As FileSystemObject
Dim fFile As File
Dim gFile As File
Dim ts As TextStream
Dim ts2 As TextStream
Dim result As String
Dim Path As String
Dim PathTempo As String
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ListRepertoires = ObjFSO.GetFolder(Mondossier)
Set ListFichiers = ListRepertoires.Files
For Each MonFich In ListFichiers
' tester l'extension du fichier : seuls les Cfg
If Right(MonFich.Name, 3) = "cfg" Then
'ouvrir le fichier d'entrée
Set fso = CreateObject("Scripting.FileSystemObject")
Path = MonFich.Path
PathTempo = Replace(Path, ".cfg", "_piou.cfg")
Set fFile = fso.GetFile(MonFich.Path)
fso.CreateTextFile (PathTempo)
Set gFile = fso.GetFile(PathTempo)
Set ts = fFile.OpenAsTextStream(ForReading)
Set ts2 = gFile.OpenAsTextStream(ForAppending)
While Not ts.AtEndOfStream
result = ts.ReadLine
If InStr(1, result, AncienMotdePasse)> 1 Then
ts2.WriteLine Replace(result, AncienMotdePasse, NouveauMotdePasse)
Else
ts2.WriteLine result
End If
Wend
ts.Close
ts2.Close
Path = MonFich.Path
Set fFile = Nothing
Set gFile = Nothing
Kill Path
Name PathTempo As Path
End If
Next
' Appel pour lister l'ensemble des sous sous sous rep...
ChangementMDP = True
End Function |
Partager