Renomer un fichier déplacer [Résolu]

Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
- - Dernière réponse : cs_Sator2
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
- 17 mai 2006 à 08:20
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!
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
3
Merci
 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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 193 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
0
Merci
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)
Commenter la réponse de cs_Jack
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
0
Merci
merci infiniment
effectivement après quelques modifications pour mon application ça fonctionne...
@+ 1
Commenter la réponse de cs_Sator2