program.bas

来自「Market isletme programidir.」· BAS 代码 · 共 19 行

Attribute VB_Name = "Program"

Public Genel As Boolean
Public DbYol As String
Public EOL As String

Sub main()
    Genel = True
    EOL = vbCrLf
    DbYol = App.Path & "\DATA"
    
    Data_Kontrol
    
    AnaForm.Show
End Sub

Sub Data_Kontrol()
    If Dir(DbYol, vbDirectory) = "" Then MkDir DbYol
    If Dir(DbYol & "\bos.dbf") = "" Then Data_Bo