Débutant dans le domaine, j'ai un problème de nommage de fichier. Je m'explique :
J'ai plusieurs fichiers .txt extrait automatiquement chaque jour dans un même dossier. Je souhaiterais que ceux-ci (ils ont des noms differents) voient ajouter à leur nom la date de la veille automatiquement grace à uun script.
Private Sub Form_Load()
Call RenameFiles("C:\Partage\Ch\")
End Sub<hr />
Public Sub RenameFiles(FolderPath)
Dim FileName As String
Dim NewFileName As String
FileName = Dir(FolderPath & "*.txt")
While FileName <> vbNullString
NewFileName = Mid(FileName, 1, InStrRev(FileName, ".") - 1) & Format(CStr(Date - 1), "_DD_MM_YYYY") & ".txt"
Name FolderPath & FileName As FolderPath & NewFileName
FileName = Dir()
Wend
End Sub , ----
[code.aspx?ID=41455 By Renfield]
Salut,
ce que je t'ai donné est un ocde Visual Basic 6 (tout comme la section dans laquelle tu as poster)
[infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_DIVERS_220.aspx Divers] / [infomsgt_DEBUTANTS_226.aspx Débutants] / Script pour renommer des fhichier en masse En fait tu aurais du poster (mais pas grave, juste penses y pour les futures questions) ICI:
Dim Fils
Dim Foldr
Dim FSO
Dim FormatDate
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Foldr = FSO.GetFolder("C:\Partage\Ch\")
For Each Fils In Foldr.Files
If FSO.GetExtensionName(Fils.Name) = "txt" Then
FormatDate = "_" & Day(Date - 1) & "_" & Month(Date - 1) & "_" & Year(Date - 1)
Fils.Name = Mid(Fils.Name, 1, InStrRev(Fils.Name, ".") - 1) & FormatDate & ".txt"
End If
Next
Set Foldr = Nothing
Set FSO = Nothing
Set Fils = Nothing , ----
[code.aspx?ID=41455 By Renfield]
Merci pour ce script. Sauf erreur de ma part, je n'ai que le chemin a changer dans Form_load mais doué comme je suis cela ne marche pas.
pour tester, j'ai creer un fichier test et dedans j'ai mis mon script plus des fichier text, j'ai changer le chemin, mais quand j'execute le script --->rien