compresser des fichiers automatiquement - est-ce possible??

Le
Nicolas
bonsoir,
je souhaiterai que mon appli:
- décompresse un fichier zipper automatiquement après click sur un bouton de
commande,
- compresser automatiquement les fichiers contenus dans le répertoire
sélectionné via un bouton de commande

est-ce possible??
merci beaucoup
cdlt
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Nicolas
Le #22481551
finalement j'ai trouvé une solution qui me convient :-)))))))))

Option Compare Database
Option Explicit

Private Sub Command0_Click()
'compression fichiers...
Shell "C:Program Fileswinrarwinrar a -ep D:Appli_GéPIRapports.rar
D:Appli_GéPIc-ExportGéPIcompress*.*"
End Sub

Private Sub Command1_Click()
'décompression fichier...
Shell "C:Program Fileswinrarwinrar e
D:Appli_GéPIa_ImportLogDécompressRapports.rar
D:Appli_GéPIa_ImportLogDécompress"
End Sub

nota:
vérifier la présence du fichier winrar.exe dans le rép "C:Program
Fileswinrarwinrar" (if dir("C:Program Fileswinrarwinrar")<> "" then
...)
si présent -> prendre en cpt code ci-dessus
si absent alors MsgBox(compression refusée - application WINRAR inexistante
dans votre station)



"Nicolas" 4c6af22b$0$10214$
bonsoir,
je souhaiterai que mon appli:
- décompresse un fichier zipper automatiquement après click sur un bouton
de commande,
- compresser automatiquement les fichiers contenus dans le répertoire
sélectionné via un bouton de commande

est-ce possible??
merci beaucoup
cdlt


Publicité
Poster une réponse
Anonyme