Exécuter commande DOS

Version imprimable

25/10/2007, 18h45
seacat

Exécuter commande DOS

Bonjour,

je cherche à executer une commande dos depuis un formulaire access,
commande qui vise à modifier l'attribut d'un fichier

Code:

ATTRIB +R

j'ai trouvé des éléments dans la FAQ mais apparemment plus spécifiques vb

Citation:

vb

Shell "command.com dir *.* > c:\liste.txt"

j'ai testé et ça fonctionne jusqu'à l'ouverture de la fenêtre de commande mais

l'instruction elle même est ignorée...

existe t il une astuce où ne suis-je plus dans le domaine de compétences d'access et la solution est d'acheter une licence vb?

merci
25/10/2007, 19h34
marot_r

Non Access peut faire cela, c'est probablement plus problème de syntaxe.

Le truc avec les commandes DOS c'est de les tester à la main avant. Donc tu ouvre une fenêtre et tu tapes ce que tu veux faire. Après tu mets ce que tu as tapé dans la commande en paramêtre de Shell et généralement ça marche.

Là je soupsconne que Command.com n'existe pas sur ta machine essaye en remplaçant par cmd.exe.

Un autre truc utile est d'appeler un .bat ou un point .cmd qui lui execute tes commande DOS.

Il y a aussi des paramêtres que tu peux passer à cmd, tape help cmd dans une fenêtre dos pour les détails.

A+
25/10/2007, 20h55
seacat

hello,

effectivement le "command.com" n'est pas au top
je l'avais retranscrite telle que trouvé dans les faq

j'avais aussi testé la commande dos elle meme, qui fonctionne bien depuis la fenetre dos

en l'occurrence:

Code:

attrib +R c:\temp\test.txt

à l'issue je retrouve bien mon fichier test.txt en lecture seule

J'ai testé ton idee de lancer un fichier .bat qui contiendrait l'instruction,
ça fonctionne aussi.:P

Le pb maintenant est que le nom du fichier à modifier est variable; cette variable se trouve dans mon formulaire access, mais si je mets dans mon code une instruction du style:

Code:

Shell "c:\windows\system32\cmd.exe attrib +R c:\temp\test.txt"

la commande attrib+R n'est pas executée bien que valide :(

Et si je suis ta suggestion du fichier .bat, il me faut pouvoir le modifier ou recréer auparavant, ce qui ouvre la porte vers des horizons totalement inconnus...

merci

:resolu:EUREKA !:yaisse2:

grâce à la bonne idée de marot_r pour le fichier batch,
aux codes de shwin et M Hubiche pour les fonctions, que le Grand Manitou les comble de mille bénédictions.

merci à tous

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
Private Sub Commande0_Click()
 
Dim ls_FichCible As String
Dim ls_FichSource As String
Dim ls_commande As String
 
ls_FichCible = "c:\temp\attrib.bat"
 
'--- appel de la fonction permettant de récupérer le nom et le chemin
'--- d'accès au fichier dont on veut modifier l'attribut
ls_FichSource = OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Word", "doc")
 
'--- redaction de la commande dos
'--- utilisation des doubles guillemets pour pouvoir
'--- utiliser le chemin complet au lieu du nom réduit (dos)
ls_commande = "attrib +R """ & ls_FichSource & """"
 
'--- appel de la fonction crént le fichier .bat
Call CreerFichier(ls_FichCible)
'--- ajout de la ligne de commande
'--- curieusement un change directory semble mieux digéré (...)
Call AjoutLigneDansFichier(ls_FichCible, "cd..")
Call AjoutLigneDansFichier(ls_FichCible, ls_commande)
 
'--- exécution du fichier batch
Shell "c:\temp\attrib.bat", vbNormalFocus
 
 
End Sub

http://access.developpez.com/faq/?pa...#AffBoitDialog

http://access.developpez.com/faq/?page=Fichier#FicTxt