14-11-23, 11:41 PM
Public Lines() As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\ipfile.txt").Split(vbCrLf)
Dim Cls As New AttachDatabaseNameCls()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'-----------------------------------------------------------------
Dim file0, file1, file2 As String
file0 = Lines(0)
file1 = Lines(1)
file2 = Lines(2)
'Try
Cls.AttachDatabaseName(file0, Application.StartupPath & file1, Application.StartupPath & file2)
القيم الموجودة في الملف النصي هي
"salse"
"salse.mdf\"
"salse_log.ldf\"
لماذا لا يعطي خطا علما بان عند عرض اسماء الملفات في رسئايل تظهر سليمة
برجاء احد يعرف الخطأ فين
كيف اعرف اسم الملف كمتغير ويلا يظهر خطا عند التنفيذ
برجاء
Dim Cls As New AttachDatabaseNameCls()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'-----------------------------------------------------------------
Dim file0, file1, file2 As String
file0 = Lines(0)
file1 = Lines(1)
file2 = Lines(2)
'Try
Cls.AttachDatabaseName(file0, Application.StartupPath & file1, Application.StartupPath & file2)
القيم الموجودة في الملف النصي هي
"salse"
"salse.mdf\"
"salse_log.ldf\"
لماذا لا يعطي خطا علما بان عند عرض اسماء الملفات في رسئايل تظهر سليمة
برجاء احد يعرف الخطأ فين
كيف اعرف اسم الملف كمتغير ويلا يظهر خطا عند التنفيذ
برجاء