[عبدالرحمن المكاوي]

السلام عليكم
عندي مشكلة اخواني وهو هذا الكود
اولا كان يعمل عندما كان بهذا الشكل
 Dim string1 As String
        Dim ReadString As String
        Dim iFr As Short
        iFr = FreeFile()
        ReadString = "E:\1.txt"
        FileOpen(iFr, ReadString, OpenMode.Binary)
        string1 = Space(LOF(iFr))
        FileGet(iFr, string1)
        FileClose(iFr)
        MsgBox(string1)


ولكن انا اريده ان ياخذ البيانات من اداة التيكست بوكس وليس من الملف الذي في الرابط


 Dim string1 As String
        Dim ReadString As String
        Dim iFr As Short
        iFr = FreeFile()
        ReadString = TextBox1.Text
        FileOpen(iFr, ReadString, OpenMode.Binary)
        string1 = Space(LOF(iFr))
        FileGet(iFr, string1)
        FileClose(iFr)
        MsgBox(string1)


وعندما جعلته هكذا لم يعمل ارجو الحل

[amgad525]

PHP كود :

string1 = TextBox1.Text
MsgBox(string1) 


---

PHP كود :

string1 = IO.File.ReadAllText("E:\1.txt")
MsgBox(string1)