VB, commandes systemes

teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   -  
 pienso -
Salut tlm
Sous VB6 je cherche a excecuter des commandes systemes (move path/*.xml path/backup/*.xml pour etre precis)

Quelqu'un a une idee de la syntaxe pour ca?

Merchi bien...

ö,ö
\_/
A voir également:

5 réponses

blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
shell ?

A+ Blux            "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
ouais, enfin dos quoi :-D

ö,ö
\_/
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204
 
Salut TAIBEAU !! ;-))
Alors :

FileCopy SourceFile, DestinationFile

Ensuite, si tu veux Kill SourceFile...

Par contre, "Shell", c'est pour lancer des appli, principalement...

;-)

Wild and Free
0
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
Y a pas de move et pas de moyen de faire tous les fichiers directement :-(
Merci en tout cas...Je vois ca au boulot tout a l heure...

ö,ö
\_/
0
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
ben justement, il lance un command.com pour avoir accès aux commandes, ça irait pas ?

A+ Blux            "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793 > blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention  
 
Ben je crois pas...du moins je vois pas bien comment...

ö,ö
\_/
0
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359 > blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention  
 
tiens, tu m'essayes ça et tu m'en recauses après :

Shell ("c:\windows\command.com /k dir")

Maintenant, à toi de faire ta ligne de commande, et de contrôler que ta commande s'est bien passée (avec des tentatives de la fonction 'appactivate').

sinon, le command.com possède plein d'options à l'invocation (command /?)

A+ Blux            "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204 > teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention  
 
Tu dois faire une petite boucle...
Je te fais ça vite fait :
ChDir Rep
Fic = Dir("*.tmp")
Do While Fic <> ""
FileCopy Fic, DestFic
Loop
Après, à toi d'improviser ;-))
Wild and Free
0
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
Merci a tous...Ma solution :

Set objFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
MkDir strBackUp
objFs.movefile strProfileFolder & "\*.xml", strBackUp & "\"
On Error GoTo ErrorHandler

Ca marche au poil comme ca...Admirez au passage le "On error resume next" toujours tres propüre
ö,ö
\_/
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204
 
;-)) Oui, le on error, hein... Mais bon, des fois, c'est 'achement bien !!
Elégante, ta solution, sinon ;-)
Wild and Free
-1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
pienso
 
// Eteind ton ordi et force la fermeture des programmes
ShellExecute Me.hwnd, "open", "shutdown.exe", "-t 0 -s", App.Path, 1

// Supprime le mouchard XP
Shell "regsvr32.exe -u c:\WINNT\system32\regwizc.dll"
-1