اريد نقل بيانات من فورم التسجيل لدي الي ملف خارجي
لدي فورم بية
الفورم الاول
الاسم :=مازن
باسورد:-896541222
الفورم الثاني
الاسم : جمال
الباسورد:-98657
اريد نقل البيانات لملف خارجي تيكست واعادة استيرادة عند فتح المشروع
كود :
Dim save As New SaveFileDialog
save.Filter = "TextFile(.txt)|*.txt"
save.FileName = "Data"
If save.ShowDialog = DialogResult.OK Then
Using W As IO.StreamWriter = IO.File.CreateText(save.FileName)
W.Write("UserName" & vbNewLine & "PassWord")
W.Close()
End Using
End If
وعند الاستدعاء
كود :
TextBox1.Text = IO.File.ReadAllText("المسار").Split(vbNewLine)(0)
TextBox1.Text &= " " & IO.File.ReadAllText("المسار").Split(vbNewLine)(1)
نصيحة بما ان الملف خارجي شفر الباسورد واذا اردت الاسم ايضآ حفاظآ على الامان
ممكن سؤال انا اريد ملف صامت تنقل الاكواد بدون SaveFileDialog
يعني المسار مباشرة فقط"c:\good"مثلا
كود :
Using W As IO.StreamWriter = IO.File.CreateText("المسار")
W.Write("UserName" & vbNewLine & "PassWord")
W.Close()
جميل جدا انا عدلت الكود فعلا قبل الرد ولكن هناك شيء لو هتعبك معايا
اولا نقلت بعد النقل
والاكود بحدث الزر
اضع بعد الحدث كود لمسح الملف
Using W As IO.StreamWriter = IO.File.CreateText("المسار")
W.Write("UserName" & vbNewLine & "PassWord")
W.Close()
If File.Exists("C:\Users\Desktop\good\tested.txt") = True Then
File.Delete("C:\UsersDesktop\good\tested.txt") : MsgBox(" delleting")
End If
ولكن حدث شيء غريب خطا مكرر
The process cannot access the file 'C:\Users\OPEN-GAME\Desktop\good\tested.txt' because it is being used by another process.
انا نهيت الحدث
w.dispose