Back up Access-ove baze podataka iz aplikacije

[ rainman1977 @ 10.01.2004. 13:42 ] @

pozdrav,
Pokusavam da napravim back up baze podataka iz aplikacije sa opcijom FileCopy ali javlja mi gresku tj. ne mogu kopirati bazu ako je vec neko koristi(File copy radi ako je aplikacija zatvorena).Da li postoji vec neka kontrola ili opcija za kopiranje baze i da li mi moze pomoci kontrola CommonDialog il vec imate nesto slicno na umu?

[ BlueSoniq @ 14.01.2004. 11:11 ] @

Probaj ovako:

Code:

Public Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Public Sub CopyFile(SourceFile As String, DestFile As String)
      '---------------------------------------------------------------
      ' PURPOSE: Copy a file on disk from one location to another.
      ' ACCEPTS: The name of the source file and destination file.
      ' RETURNS: Nothing
      '---------------------------------------------------------------
Dim Result As Long
         If Dir(SourceFile) = "" Then
            MsgBox Chr(34) & SourceFile & Chr(34) & _
               " NE POSTOJI ! "
         Else
            Result = apiCopyFile(SourceFile, DestFile, False)
         End If
End Sub

[ mladenovicz @ 20.01.2004. 10:24 ] @

Code:

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
FSO.CopyFile SrcFile, DestFile, Overwrite

[ rainman1977 @ 21.01.2004. 00:37 ] @

Citat:

mladenovicz:

Code:

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
FSO.CopyFile SrcFile, DestFile, Overwrite

Jos samo mi reci koje reference da koristim posto nemam u libery-ju "Scripting.FileSystemObject".

[ mladenovicz @ 21.01.2004. 10:24 ] @

Da bi se koristio FileSystemObject potrebno je u References ukljuciti Microsoft Scripting Runtime (scrrun.dll).