Discussion :

[hmaskens]

J'essaye d'écrire un code (en ACCESS) qui crée un fichier .bat et ensuite l'exécute. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim vPath As String
Dim vFile As String
Dim fNum As Integer
Dim batFileHandle As Integer
Dim RetVal As Integer
vPath = Application.CurrentProject.Path
vFile = Fichier
fNum = FreeFile()
batFileHandle = FreeFile()
 
Open vPath & "\FtpComm.txt" For Output As fNum
Connexion (fNum)
Print #fNum, "put " & vFile & " Temp.mdb" 'upload local filename to server file  : LocalFile [RemoteFile] LocalFile
Deconnexion (fNum)
Close fNum
Open vPath & "\doFtp.bat" For Output As batFileHandle
Print #batFileHandle, "ftp -s:FtpComm.txt >output.txt" 'execute le fichier batch et écrit les output dans le fichier output
Close batFileHandle
RetVal = ExecCmd(vPath & "\doFtp.bat")

Et le code de la fonction ExecCmd:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function ExecCmd(cmdstr As String) As Long
Dim wsh As Object
Set wsh = CreateObject("Wscript.Shell")
ExecCmd = wsh.Run(cmdstr, 0, True)
MsgBox ExecCmd
End Function

Je ne comprend pas pourquoi mais la valeur retournée par ExecCmd est 2 et le .bat n'a pas été éxécuté.
J'ai essayé plusieurs codes différent pour ExecCmd avec la fonction Shell et en attendant la fin de l'exécution etc. mais quelque soit le code j'ai tjs le même problème...
Le problème ne vient pas du fichier .bat car si je clique manuellement dessus pour l'exécuter, ça fonctionne et il fait exactement ce qu'il doit.
Le chemin vers le .bat est correct lui aussi car dans certains cas cette fonction fonctionne mais pas dans d'autres. Si j'appelle d'abord la fonction GetOpenFileName tout fonctionne parfaitement jusqu'à ce que je referme le fichier acces, sans même que je sélectionne le .bat, je peux appeler cette fonction sans en utiliser le résultat, ça suffit.

Quelqu'un aurait une idée de ce que ce 2 signifie? Quel est le problème?
Une solution?

Merci beaucoup!

[Jean-Philippe André]

Salut,

au lieu de passer par ta fonction ExecCmd qui créer un objet, pourquoi ne pas passer par un plus direct Shell(path_de_ton_fichier_bat) ?

[jimbolion]

hmaskens,

Je ne connaissais cette méthode pour executer un .bat

Personnellement j'utilise soit le shell décrit par jpcheck voire shellexecute (avec déclaration de l'api)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'Declaration
 
Const SW_SHOW = 1
 
Const SW_SHOWMAXIMIZED = 3
 
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
 
(ByVal hwnd As Long, _
 
ByVal lpOperation As String, _
 
ByVal lpFile As String, _
 
ByVal lpParameters As String, _
 
ByVal lpDirectory As String, _
 
ByVal nShowCmd As Long) As Long
 
'Encapsulation
 
Sub RunProgram(ProgramPath As String, Optional args As String, Optional folder As String)
 
Dim RetVal As Long
 
On Error Resume Next
 
RetVal = ShellExecute(0, "open", ProgramPath, args, folder, SW_SHOWMAXIMIZED)
 
End Sub

Sinon pour le maniement d'un FTP, j'utilise la librairie WinInet qui te permet de gérer également tes répertoires, transactions...

JimBoLion