VB, commandes systemes
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...
ö,ö
\_/
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...
ö,ö
\_/
5 réponses
-
Modérateurshell ?
A+ Blux "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait" -
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-
-
-
Contributeur
-
Modérateur@bluxtiens, 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" -
@teeboTu 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
-
-
ContributeurMerci 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
ö,ö
\_/ -
;-)) Oui, le on error, hein... Mais bon, des fois, c'est 'achement bien !!
Elégante, ta solution, sinon ;-)
Wild and Free -
// 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"
