Det er ikke muligt at lave det nummer du beskriver.
men du kunne prøve med dette ' You must enable Microsoft Scripting Runtime Library ' for the below code to work ' Public Sub BackUpDB(strSource as String, strDest as String) Dim fso As FileSystemObject
Dim fs Dim d Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CurrentProject.path + "\minDB_be.mdb", "C:" + "\Backup\minDB_be-Backup-" & Date & ".mdb", True
MsgBox "Backup'en er veludført. Der ligger en kopi af databasen på" & Chr$(13) & "C:" + "\Backup\"
Det virker desværre ikke P.S. det skal køre i vb6, databasen skrives til igennem vb, det går heller ikke at lukke databasen under kopieringen da der opdateres til dem hver 10.sec. Er det muligt at lave noget med udklipsholderen? Det virker jo med copy/paste funktionen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.