كيفية الحفظ للملفات في فيجوال بيسك

المنتدى لا يتحمل 2 محمد سيد !!!!!!!!!!!!!!!!!!!!!!!

أهلا بيك أخى , المنتدى ممتلئ بمواضيع بتتكلم عن سؤالك , أعمل بحث و أن شاء الله هتلاقى الحل.

بالمناسبة لا تضع أكتر من سؤال فى نفس الموضوع و لا تسأل عن موضوع أتسأل قبل كده الا اذا لم تجد ما تريد , راجع القواعد.

و أهلا بيك مره تانيه :)

طيب يا لأخي ساعدنى واعطينى الينك المنتدى ماشاء الله واسع اوي وانا تايه فيه لما انت عارف كده قولي فين واهلا بيك وتشابه اسماء لطيف وشكرا لك

حقك عليا , لحفظ الملفات أستعمل الكود التالى :

Private Sub SaveFile(Data As String, FilePath As String)
Dim FF As Integer
FF = FreeFile()

Open FilePath For Output As #FF
	Print #FF, Data
Close #FF
End Sub

و تناديه كالتالى :

SaveFile "Welcome to ArabTeam2000", "C:\Documents and Settings\Mohammed\Desktop\Test.txt"

للبدء مع النظام :

فى Module :

Option Explicit
Private Const REG_SZ = 1
Public Enum RegClasses
	HKEY_CLASSES_ROOT = &H80000000
	HKEY_CURRENT_USER = &H80000001
	HKEY_LOCAL_MACHINE = &H80000002
	HKEY_USERS = &H80000003
	HKEY_PERFORMANCE_DATA = &H80000004
End Enum

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long



Public Sub SaveString(hKey As RegClasses, strPath As String, strValue As String, strData As String)
	Dim Ret As Long
	RegCreateKey hKey, strPath, Ret
	RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
	RegCloseKey Ret
End Sub


Public Sub DelString(hKey As RegClasses, strPath As String, strValue As String)
	Dim Ret As Long
	RegCreateKey hKey, strPath, Ret
	RegDeleteValue Ret, strValue
	RegCloseKey Ret
End Sub

و بعدين لو عندك Form فيها 2 Command buttons واحد أسمه cmdAdd و التانى cmdRemove أستعمل الكود التالى :

Option Explicit
Dim AFP As String, FTitle As String
Private Const StartUpPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

Private Sub Form_Load()
AFP = App.Path: If Right$(AFP, 1) <> "\" Then AFP = AFP & "\"
AFP = AFP & App.EXEName & ".exe"
FTitle = App.Title & " " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub cmdAdd_Click()
SaveString HKEY_LOCAL_MACHINE, StartUpPath, FTitle, AFP
End Sub

Private Sub cmdRemove_Click()
DelString HKEY_LOCAL_MACHINE, StartUpPath, FTitle
End Sub

شكرا جزيلا وهو ده الفضل