[asemshahen5]

تفضل هذا الكود :

PHP كود :

If Not System.IO.Directory.Exists(Application.StartupPath & "\Backup" & Now.ToString("yyyy,MM,dd")) Then
            System.IO.Directory.CreateDirectory(Application.StartupPath & "\Backup" & Now.ToString("yyyy,MM,dd"))
            IO.File.Copy(Application.StartupPath & "\DBName.mdb", Application.StartupPath & "\Backup" & Now.ToString("yyyy,MM,dd") & "\DBName.mdb")
        Else
            MsgBox("المجلد موجود مسبقا", MsgBoxStyle.Critical, "خطأ")
        End If