Copier en réseau

Question

Bonjour, 

j'ai ma BD qui se trouvent dans \PCServeur\BD\mabd.mdb et je souhaiterai que lorsque je clique sur le bouton copier de mon application qu'il me copie le fichier mabd.mdb (de l'emplacement ci-dessus) vers le pc local dans le chemin C:\BD et si le fichier existe déjà qu'il l'écrase. Sauriez-vous comment faire s'il vous plaît?

Merci d'avance.

c148270 · Answer

Bonjour
A essayer

Public Sub BackUpdatabase()
    
    Dim oFSO As Object
    Dim strDestination As String
    strDestination = "d:\mes documents\bd2.Mdb"  
    DBEngine.Idle
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile CurrentDb.Name, strDestination
    Set oFSO = Nothing
end sub

bonne journée

cs_ghuysmans99 · Answer

Utilise la fonction FileCopy() de VB et ceci (à coller en tête de module) pour savoir si un fichier existe ou non :
Option Explicit
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Public Function FileExists(Filename As String) As Boolean
 FileExists = GetFileAttributes(Filename) <> INVALID_FILE_ATTRIBUTES
End Function

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Copier en réseau

2 réponses

Votre réponse

Discussions similaires