السلام عليكم اخي الكريم
اليك هذا المثال
Private Sub Form_Load()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If MakeDir("C:\WinDll Files\") Then
fso.CopyFile "c:\Source\Ali.dll", "c:\WinDll Files\Ali.dll"
End If
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Test"
End Sub
ان شاءالله يفي بالمطلوب
تحياتي