Renomer un fichier déplacer [Résolu]

Signaler
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
-
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
-
Bonjour à vous, qui me lisez...
Je vais essayer d'être clair (pas facil)

1) avec un commondialog je vais chercher un fichier.
2) je creer un dossier dans lequel je copie le fichier en question (dossier dont le nom est aléatoir)
3) j'essaie de renomer le fichier....... là c'est le bordel.....
car l'ancien chemin (du commondialogue n'est plus le bon...)
renomer l'original n'est pas souhaité.

Donc si quelqu'un à une idée elle est bien venue...
Un grand merci d'avance....
Ps. note: si ce message ne comporte pas de fautes d'orthographe: il y a peu de chance pour qu'il soit de moi!

3 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25
 Bonjour,

J'avais posté cette réponse hier, mais elle a disparu !
Exemple de CommanDialog + CopyFile.

Set WshShell = wscript.CreateObject("wscript.Shell")
Set objDlg = wscript.CreateObject("MSComDlg.CommonDialog")
objDlg.Filter = "All Files (*.*)|*.*|coucou Files (*.txt)|*.txt|jean-marc"
objDlg.FilterIndex = 2
objDlg.MaxFileSize = 260
objDlg.CancelError = true
objDlg.ShowOpen
'WshShell.popup objDlg.Filename
'MsgBox objDlg.FileName
'WshShell.Run objDlg.FileName
MsgBox "Répertoire et Fichier: " & objDlg.FileName &vbCrLf&_
       "Fichier: " & Mid(objDlg.FileName, InStrRev(objDlg.FileName, "") + 1)


Dim fso, wDate, wMM, wAAAAMM
wDate = Dateadd("m", -1, Date())
wMM = Month(wDate)
If Len(wMM) = 1 Then
   wMM = "0" & wMM
End If
wAAAAMM = CStr(Year(wDate)) & "-" & wMM
wRepDest1 = "d:\test1" & wAAAAMM & ""
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then
   Set f = fso.CreateFolder(wRepDest1)
End If
       newName = Mid(objDlg.FileName, InStrRev(objDlg.FileName, "") + 1) & "_" & wAAAAMM
       'msgBox "Création du dossier "&f&" effectuée.",vbInformation
       fso.CopyFile objDlg.FileName, wRepDest1 & newName


Set WshShell = Nothing
Set objDlg = Nothing
Set fso = Nothing
MsgBox "script terminé" 

jean-marc
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
68
Salut
Sans trop m'avancer, je dirai que ça vient de tes lignes de code. (rappel : Champion du monde Boule de cristal 2005)
Si tu ne nous pas comment tu fais, on va avoir du mal à te dire ce qui ne va pas ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006

merci infiniment
effectivement après quelques modifications pour mon application ça fonctionne...
@+ 1