Arrachage de cheveux.... et nom de fichier
cs_Sator2
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006
-
16 mai 2006 à 08:30
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 16 mai 2006 à 12:41
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 16 mai 2006 à 12:41
A voir également:
- Arrachage de cheveux.... et nom de fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Verifier nom de domaine - Forum PHP
- Fichier class ✓ - Forum Java
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
- Ouvrir un fichier java - Forum Java
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
16 mai 2006 à 12:41
16 mai 2006 à 12:41
Bonjour ,
Exemple rapide 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 fso = Nothing
Set objDlg = Nothing
MsgBox "script terminé"
Le fichier selectionné a été copié dans un nouveau répertoire, et, sous un nouveau nom.
jean-marc
Exemple rapide 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 fso = Nothing
Set objDlg = Nothing
MsgBox "script terminé"
Le fichier selectionné a été copié dans un nouveau répertoire, et, sous un nouveau nom.
jean-marc
