Procedure vb pour ecrire sur disquette
elie
-
elie -
elie -
bonjour
dans mon application (vb6 , access) j ai ecris une procedure qui est sensée copier ma baase de donnée sur disquette ! mais à chaque fois que je l'execute j ai le message " acces refusé " j ai changé de disquette et meme de poste mais tj le même prob , vlà le code merci d y jeter un coup d'oeil:
On Error GoTo testerr
Dim reponse As String
reponse = MsgBox("åá ÊÑíÏ ÝÚáÇ äÞá ÇáãÚØíÇÊ Úáì ÞÑÕ", vbYesNo)
If reponse = vbNo Then
Exit Sub
End If
MkDir "a:\truc"
FileCopy "c:\personnel\pers.mdb", "a:\truc\pers.mdb"
MsgBox "les données ont été copié sur votre disquette avec succès !"
Exit Sub
testerr:
MsgBox Err.Number & vbLf & Err.Description
End Sub
merci
dans mon application (vb6 , access) j ai ecris une procedure qui est sensée copier ma baase de donnée sur disquette ! mais à chaque fois que je l'execute j ai le message " acces refusé " j ai changé de disquette et meme de poste mais tj le même prob , vlà le code merci d y jeter un coup d'oeil:
On Error GoTo testerr
Dim reponse As String
reponse = MsgBox("åá ÊÑíÏ ÝÚáÇ äÞá ÇáãÚØíÇÊ Úáì ÞÑÕ", vbYesNo)
If reponse = vbNo Then
Exit Sub
End If
MkDir "a:\truc"
FileCopy "c:\personnel\pers.mdb", "a:\truc\pers.mdb"
MsgBox "les données ont été copié sur votre disquette avec succès !"
Exit Sub
testerr:
MsgBox Err.Number & vbLf & Err.Description
End Sub
merci
2 réponses
-
Je ne sais pas si il est possible de transférer une base sur disquette à partir de la dite base... quand elle est ouverte !
Va faire un tour à l'adresse suivante :
http://www.developpez.net/forums/viewforum.php?f=38&sid=aa0c6cf1dbd1b1090ea7fc6b7ec8d3fd
Si tu n'as pas de réponse, tu peux toujours créer un batch que tu lanceras à partir d'un raccourci pour effectuer l'opération. -
merci nerva pour ta reponse , mais moi je voudrais que cette procedure soit integrée à mon application .merci encore , ceci dit je vais jeter un coup d oeil vers le lien que tu m a proposé.
merci encore
