underlig beskedboks

Hvilken linie fejler den i?

Hvad er syntaxen for den funktion du kalder i linien, der fejler?

den kommer ikke med nogen fejl når jeg compiler den, og den kører også bare derud af. det er når jeg aktivere knappen hvor ovenstående funktion står i, den kommer med "Type mismatch" meddelelsen...

jeg har fundet ud af mit andet problem, det med stien til db'en. den skal se således ud:
Dim fs
Dim d

Set fs = CreateObject("Scripting.FileSystemObject")

Set d = fs.CopyFolder((CurrentProject.path + "\test"), (CurrentProject.path + "\tempfolder"), True)

er der nogen der kan prøve at sætte denne knap på en form, og se om den siger det samme eller hva der sker?:

Private Sub Cmd_backup_Click()
On Error GoTo Err_Cmd_backup_Click
Dim fs
Dim d
Set fs = CreateObject("Scripting.FileSystemObject")

Set d = fs.CopyFolder((CurrentProject.path + "\test"), (CurrentProject.path + "\tempfolder"), True)

Exit_Cmd_backup_Click:
    Exit Sub

Err_Cmd_backup_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_backup_Click
End Sub

Ændrer din kommando til at se sådan her ud

fs.CopyFolder CurrentProject.Path + "\test", CurrentProject.Path + "\tempfolder", True

Så tror jeg det virker

Du har helt ret, hugo... Hvorfor forstår jeg ikke, men skidtet virker... :)

Nogen gange er der ting man ikke skal forstå :-)