یه همچین کدی رو قبلا" آقا مصطفی برای ساخت یه فایل در یه مسیر دلخواه گذاشته بودن که من با اون خیلی راحتم شاید بدرد شما هم بخوره .
On Error Resume Next
Dim obj As Object
Set obj = CreateObject("Access.Application")
obj.NewCurrentDatabase ("e:\backup.mdb")
MsgBox "ÝÇíá ÓÇÎÊå ÔÏ"
پاسخ با نقل قول