Discussion :

[cdlr27]

Je dois promener ma base d'un PC à un autre, mais même avec le compactage, j'atteint les limites d'une disquette.

J'ai voulu utiliser un compresseur extérieur (arj en autre) avec la commande ci-aprés :
' creer une version compressée de la base
call Shell("arj.exe a db_arj.arj db_sauve.mdb", 1)
' La recopie sur le fichier de destination
Reponse = Fs.CopyFile(Bd_Arj.arj, "a:\ Bd_Arj.arj")
mais, access lance la copie avant la fin de l'execution de ARJ.

Comment attendre la fin d'une appliaction extérieure.

Ou une autre solution pour compresser ma base.

Marcel

[nikirikou]

une carte mémoire USB 128Mo ( ou moins !! ), c'est pas chère, et ça peut rapporter gros...
D'autant plus que la disquette 3 1/2" est en voie de disparition... - à mon grand regret -...

[Maxence HUBICHE]

essaie plutôt de te faire ca dans un batch (.BAT)

[Admin]

cette fonction te permet d'attendre la fin du process mis en argument.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub attente_fin_trt(id As Long)
Dim ret As Long
Dim pHandle As Long
Dim i As Integer
Do
CloseHandle (pHandle)
pHandle = OpenProcess(SYNCHRONIZE, False, id)
DoEvents
 
Loop Until pHandle = 0
 
End Sub

Code :

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

id = Shell(commande_ligne, vbMinimizedNoFocus)

[Mr.Gus]

Si çà passe pas pour pas grans chose, tu peux simplement zippé ton fichier.

[cdlr27]

Goshiz,
Ta réponse est trés intéressante pour son aspect technique.
Je suis sous access 2000, et le prgramme bute sur deux fonctions que je ne retrouve pas dans l'aide :
- CloseHandle & OpenProcess

Est-ce dù à une option du compilateur ou à autre chose ?.

Merci pour ton aide car cela répond exactement à ma question.

Id = Shell("ARJ.EXE a -e bd_arj.arj bd_source",vbMinimizedNoFocus)
puis ta procedure sub attente_fin_trt(Id)

Marcel

[Admin]

excuse moi j'ai oublié les déclarations :

ce sont en faites des API :

Code :

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

1
2
3
4
5
6
7
8
Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
 
Private Const SYNCHRONIZE = &H100000

sinon tu as aussi ca qui marche bien :

Code :

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

1
2
3
4
5
6
7
Private Declare Function WaitForSingleObject Lib "kernel32" _
   (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Const INFINITE = -1&
 
pHandle = OpenProcess(SYNCHRONIZE, False, id)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)

[cdlr27]

Les amis, pour une première utilisation de ce forum, chapeau pour l'aide.

En final, j'ai utilisé un mélange des deux solutions soit :
- Une commande shell pour le *.BAT et le paramêtre "fermer en quittant" sur le *.PIF qui s'est créer automatiquement.
- un appel à "attente_fin_trt(Id As Long)" pour attendre la fin du traitement.

Cela me donne un assez grand avenir, mon fichier compressé étant à 420Ko.

Pour répondre à d'autres, je n'ai pas de port USB sur un des PC et le sujet était intéressant.

A plus tard pour d'autres délires et je vais continuer à apprendre à utiliser ce forum.

Marcel

[effree]

Je voudrais faire la même chose, compresser des fichiers externe avec 7-Zip.
Mais dès que je mets la déclaration des API dans un module j'ai l'erreur suivante: 'Expected variable or procedure, not module' en pointant sur une ligne contenant une fonction shell.
Si je cherche dans l'explorateur d'objet shell, j'ai 2 réponses, la nomal et 1 autre: bibliothéque:nom_base Class:Shell.
Mais si je fais ca dans une base vide tout marche impec, et 1 réponse dans l'explorateur d'objet. Dans les 2 cas les ref sont identique et dans le même ordre.

Quelqu'un aurait une idée pour débloquer la situation??