Problème d'utilisation du Shell

Version imprimable

Bonjour,

J'ai développé une application en VB.Net permettant de mettre à jour des fichiers. Pour cela, j'utilise du batch. Cependant, une erreur apparait lorsque je souhaite exécuter ma commande DOS :
Code:

1 2 3 4 5 'lecture d'un fichier comprenant des nom de fichiers et copie de ceux-ci sur le bureau 'Ce code est "validé" par les membre de la section DOS maCmd = "FOR /f ""delims=;"" %%i IN (C:\LesFichiersACopier.txt) DO copy ""%%i"" ""C:\Documents and Settings\USER\Bureau""" Shell(maCmd, AppWinStyle.MinimizedFocus, True)
Erreur : Fichier introuvable :cry:

Or mes fichiers existent bien et ont été vérifiés par l'instruction

Code:

My.Computer.FileSystem.FileExists(lesFichiers)

Merci de m'éclairer.

En fait, appeler Shell n'exécute pas une commande batch mais à démarrer un nouveau process, il faut donc que l'argument soit un fichier exécutable. La commande FOR est une commande batch, pas un exécutable. Donc il faut que tu appelles cmd.exe en mettant la commande en paramètre. Donc ton code devient :
Code:

1 2 3 4 maCmd = "FOR /f ""delims=;"" %%i IN (C:\LesFichiersACopier.txt) DO copy ""%%i"" ""C:\Documents and Settings\USER\Bureau""" cmdExe = "c:\Windows\System32\cmd.exe" Shell(cmdExe + "/C """ + maCmd + """", AppWinStyle.MinimizedFocus, True)

Merci pour ta réponse mais mon programme ne fonctionne toujours pas.

Si j'effectue mon code Shell directement dans l'invite de commande, ça marche mais il y a toujours le même problème depuis visual studio :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
L'exception System.IO.FileNotFoundException n'a pas été gérée
  Message="Fichier introuvable."
  Source="Microsoft.VisualBasic"
  StackTrace:
       à Microsoft.VisualBasic.Interaction.Shell(String PathName, AppWinStyle Style, Boolean Wait, Int32 Timeout)
       à WindowsApplication2.Form1.Button1_Click(Object sender, EventArgs e) dans F:\Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.vb:ligne 14
       à System.Windows.Forms.Control.OnClick(EventArgs e)
       à System.Windows.Forms.Button.OnClick(EventArgs e)
       à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       à System.Windows.Forms.Control.WndProc(Message& m)
       à System.Windows.Forms.ButtonBase.WndProc(Message& m)
       à System.Windows.Forms.Button.WndProc(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.Run(ApplicationContext context)
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       à WindowsApplication2.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81
       à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
       à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       à System.Threading.ThreadHelper.ThreadStart()

:aie:

17/06/2008, 09h50
RomainDotNet

Bonjour,
petite question toute bête (mais on ne sait jamais !),
ton fichier cmd.exe se trouve-t-il bien sous c:\windows system32?, n'a-t-il pas été renommé ou déplacé?
en tout cas, VS réagit comme s'il ne le trouvais pas,
Bonne chance
17/06/2008, 09h54
Smip99

Oui, j'ai vérifié le chemin d'accès. De toute facon l'appli plante sur 2 PC différents...

Un autre idée ?

Oui,
dans le code que tomlev a cité essaie de rajouter un espace juste avant le /C
ce qui donne
Code:

1 2 3 4 5 maCmd = "FOR /f ""delims=;"" %%i IN (C:\LesFichiersACopier.txt) DO copy ""%%i"" ""C:\Documents and Settings\USER\Bureau""" cmdExe = "c:\Windows\System32\cmd.exe" Shell(cmdExe + " /C """ + maCmd + """", AppWinStyle.MinimizedFocus, True)
car je crois que sans l'espace il comprend que le chemin de ton cmd est cmd.exe/C

tiens moi au courant

Problème résolu !

Citation:
Envoyé par RomainDotNet
Oui,
dans le code que tomlev a cité essaie de rajouter un espace juste avant le /C
ce qui donne
Code:

1 2 3 4 5 maCmd = "FOR /f ""delims=;"" %%i IN (C:\LesFichiersACopier.txt) DO copy ""%%i"" ""C:\Documents and Settings\USER\Bureau""" cmdExe = "c:\Windows\System32\cmd.exe" Shell(cmdExe + " /C """ + maCmd + """", AppWinStyle.MinimizedFocus, True)
car je crois que sans l'espace il comprend que le chemin de ton cmd est cmd.exe/C

tiens moi au courant
Merci beaucoup, c'était donc ca le problème. Merci beaucoup. :king:

:salut:

17/06/2008, 11h00
tomlev

Citation:

Envoyé par RomainDotNet

dans le code que tomlev a cité essaie de rajouter un espace juste avant le /C

Oups... bien vu