Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft equivalent de copy c:\test\ass*.* d:\a traiter\ en vbs

equivalent de copy c:testass*.* d:a traiter en vbs

6 réponses
Avatar
---DGI972---
Bonjour,

je souhaite faire une copie de fichiers qui ont une racine commune vers
un répertoire de destination en vbs.

C:\TEST\ass290.354
C:\TEST\ass291.355
C:\TEST\ass291.356
C:\TEST\ass291.357

Si le QUANT=291, je veux copier cette fois si les 3 fichiers ass291*
vers un repertoire D:\A TRAITER\

voiçi mes quelques lignes:

QUANT=Date()-DateSerial(Year(Date()),1,1)+1
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

DEPARTE=InputBox("Voulez vous générer le Fichier" & vbCrLf & "de ASS"&
vbCrLf &"Tapez le Département." & vbCrLf & "(Par Ex :MAR,GUA ou GUY en
Majuscule)","ASS","MAR")

If vbCancel = 2 Then Wscript.quit
If DEPARTE= "" Then Wscript.quit

If DEPARTE= "MAR" Then

If fso.FileExists("C:\ASSMAR\67")= False Then
MsgBox "Il n' a pas de FICHIER 67" & vbCrLf & "" & vbCrLf & "
VEUILLEZ RELANCER PLUS TARD !" , vbOKOnly + vbInformation,
"PAS DE FICHIER"
Wscript.quit
End If

cde = "cmd /c COPY C:\test\ASS" & QUANT & "*.* D:\A TRAITER\"
objShell.Run cde

Je ne suis pas satifait de la ligne de commande cmd(qui fonctionne
correctement)copy ASSQUANT*.* D:\A TRAITER\
vous n'auriez pas une vraie solution en VBSCript SVP ?
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean-Claude BELLAMY
Dans le message :,
---DGI972--- <gilles.dermigny@*NO SPAM*laposte.net> a pris la peine d'écrire
ce qui suit :
Bonjour,

je souhaite faire une copie de fichiers qui ont une racine commune
vers un répertoire de destination en vbs.
[...]
cde = "cmd /c COPY C:testASS" & QUANT & "*.* D:A TRAITER"
objShell.Run cde

Je ne suis pas satifait de la ligne de commande cmd(qui fonctionne
correctement)copy ASSQUANT*.* D:A TRAITER
vous n'auriez pas une vraie solution en VBSCript SVP ?


Ohhhhhhhh oui !!!!
C'est d'ailleurs du "très" basique ...

méthode "CopyFile" de la classe FileSystemObject !
Tout simplement ...
http://www.bellamyjc.org/fr/vbsobj/vsmthcopyfile.html


Set fso=WScript.CreateObject("Scripting.FileSystemObject")
...
fso.CopyFile "C:testASS" & QUANT & "*.*" , "D:A TRAITER"

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

Avatar
---DGI972---
Dans le message :,
---DGI972--- <gilles.dermigny@*NO SPAM*laposte.net> a pris la peine d'écrire
ce qui suit :
Bonjour,

je souhaite faire une copie de fichiers qui ont une racine commune
vers un répertoire de destination en vbs.
[...]
cde = "cmd /c COPY C:testASS" & QUANT & "*.* D:A TRAITER"
objShell.Run cde

Je ne suis pas satifait de la ligne de commande cmd(qui fonctionne
correctement)copy ASSQUANT*.* D:A TRAITER
vous n'auriez pas une vraie solution en VBSCript SVP ?


Ohhhhhhhh oui !!!!
C'est d'ailleurs du "très" basique ...

méthode "CopyFile" de la classe FileSystemObject !
Tout simplement ...
http://www.bellamyjc.org/fr/vbsobj/vsmthcopyfile.html


Set fso=WScript.CreateObject("Scripting.FileSystemObject")
...
fso.CopyFile "C:testASS" & QUANT & "*.*" , "D:A TRAITER"


Merci encore,

Cela fontionne et désolé, je me suis aperçu (tardivement) que vous
m'aviez déjà répondu pour le même sujet!!

Cordialement
DGI972


Avatar
---DGI972---
---DGI972--- a utilisé son clavier pour écrire :
Dans le message :,
---DGI972--- <gilles.dermigny@*NO SPAM*laposte.net> a pris la peine
d'écrire ce qui suit :
Bonjour,

je souhaite faire une copie de fichiers qui ont une racine commune
vers un répertoire de destination en vbs.
[...]
cde = "cmd /c COPY C:testASS" & QUANT & "*.* D:A TRAITER"
objShell.Run cde

Je ne suis pas satifait de la ligne de commande cmd(qui fonctionne
correctement)copy ASSQUANT*.* D:A TRAITER
vous n'auriez pas une vraie solution en VBSCript SVP ?


Ohhhhhhhh oui !!!!
C'est d'ailleurs du "très" basique ...

méthode "CopyFile" de la classe FileSystemObject !
Tout simplement ...
http://www.bellamyjc.org/fr/vbsobj/vsmthcopyfile.html


Set fso=WScript.CreateObject("Scripting.FileSystemObject")
...
fso.CopyFile "C:testASS" & QUANT & "*.*" , "D:A TRAITER"


Merci encore,

Cela fontionne et désolé, je me suis aperçu (tardivement) que vous m'aviez
déjà répondu pour le même sujet!!

Cordialement
DGI972


Re bonjour,
Est ce que fso.deleted "C:testASS" & QUANT & "*.*" fonctionne ?

Cordialement
DGI972



Avatar
Gilles LAURENT
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:

| Re bonjour,

Bonsoir,

| Est ce que fso.deleted "C:testASS" & QUANT & "*.*" fonctionne ?

fso.DeleteFile

--
Gilles LAURENT
http://glsft.free.fr
Me contacter : http://cerbermail.com/?zoTY7ZkLcD
Avatar
---DGI972---
Le 20/10/2006, Gilles LAURENT a supposé :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:

Re bonjour,


Bonsoir,

Est ce que fso.deleted "C:testASS" & QUANT & "*.*" fonctionne ?


fso.DeleteFile


Pardon j'en ai oublié la moitié

Est ce que fso.deleteFile "C:testASS" & QUANT & "*.*" fonctionne ?


Avatar
jbongran
---DGI972--- wrote:
Le 20/10/2006, Gilles LAURENT a supposé :
"---DGI972---" <gilles.dermigny@*NO SPAM*laposte.net> a écrit dans le
message de news:

Re bonjour,


Bonsoir,

Est ce que fso.deleted "C:testASS" & QUANT & "*.*" fonctionne ?


fso.DeleteFile


Pardon j'en ai oublié la moitié

Est ce que fso.deleteFile "C:testASS" & QUANT & "*.*" fonctionne ?


Extrait de la doc vbscript.chm:
Supprime un fichier spécifié.
object.DeleteFile ( filespec[, force] );
Arguments
object
Requis. Doit toujours correspondre au nom d'un objet FileSystemObject.
filespec
Requis. Nom du fichier à supprimer. filespec peut contenir des caractères
génériques dans le dernier composant de chemin.
force
Facultatif. Valeur booléenne qui est true lorsque des fichiers en lecture
seule doivent être supprimés et false (valeur par défaut) dans le cas
contraire.
Note
Une erreur se produit si aucun fichier correspondant n'est trouvé. La
méthode DeleteFile s'arrête à la première erreur qu'elle rencontre. Aucune
tentative n'est faite en vue de restaurer ou d'annuler les changements
effectués avant que l'erreur ne se produise.

Donc la réponse est oui, et la doc est là:
http://www.microsoft.com/downloads/details.aspx?displaylang=fr&familyidç4494D3-C4E1-4E18-9C6C-0EA28C9A5D9D