title image


Smiley Re: Datensicherung






Function SaveFile()

'Datei zur Laufzeit kopieren:

Dim objFso As Object, Quelldatei As String, Zieldatei As String

Set objFso = CreateObject("Scripting.FileSystemObject")

 

Quelldatei = "C:\BlaBla\DeinBackend.mdb"

Zieldatei = "A:\DeinBackendSich.mdb"

 

On Error GoTo Err_SaveFile

 

objFso.CopyFile Quelldatei, Zieldatei, True

 

Set objFso = Nothing

 

Exit_SaveFile:

Exit Function

 

Err_SaveFile:

MsgBox Err.Description

Set objFso = Nothing

Resume Exit_SaveFile

 

End Function




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: