Open "C:\WINDOWS\SYSTEM\DATA.DAT" For Input As #2 Lock Read

Private Sub Command2_Click()
	'Contrôler si répertoire existe?
	Dim MyPath As String 'Définition des variables
	Dim MyName As String
	Dim RepertName As String
	'
	RepertName$ = Text1.Text
	MyPath = "C:\windows\" & RepertName$ 'On initialise la variable
	If Text1.Text = "" Then
		Title$ = "Création d'un répertoire"
		msg = "Veuillez saisir le nom du répertoire à créer!"
		MsgBox msg, 64, Title$
		Text1.SetFocus
	Else
		'Instructions

	End If
	'Si l'utilisateur n'a pas saisie un nom... alors sortie du programme
	If Text1.Text = "" Then Exit Sub
	'Puisqu'il a saisi un nom, nous traitons sa demande!
	If (MyName = Dir(MyPath, vbDirectory)) = vbEmpty Then
		'On teste l'existence du répertoire
		MsgBox "Le répertoire " & Chr(34) & MyPath & Chr(34) & " existe bien!"
		'Si le répertoire saisie existe... alors sortons....
		Exit Sub
	Else
		MsgBox "Le répertoire " & Chr(34) & MyPath & Chr(34) & " n 'existe pas!", vbExclamation
		'Alors...créons le répertoire
		RepertName$ = Text1.Text
		MkDir "c:\windows\" & RepertName$   'Indiquez le chemin ou doit être stocké le répertoire
	End If
	'Ouverture d'une fenêtre de dialogue
	MsgBox "Le répertoire " & RepertName$ & " vient d'être créé!"
End Sub

Sub CreatSerialNumberCode()
	Dim UserCode As String
	Dim SerialCode As String
	Dim PasswordNumberCode As String
	Dim Valeur As String
	Dim UserName As String
	Dim msg As String
	Dim MonFichier As String
	'
	'Rechercher si le fichier existe?
	NumFich = FreeFile
	MonFichier$ = "c:\windows\protect.org"
	If Dir(MonFichier$, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) = "" Then
		'Le fichier n'existe pas, alors...le créer!
		Open "c:\windows\protect.org" For Output As #NumFich
		'=============== [Affichage]====================
		'Ecriture des valeurs dans la clé [Affichage]
		Print #NumFich, "[Affichage]"
		Valeur$ = "0"    'Récupérer la valeur dans le champ de saisie approprié - Ex Protect.lblAffichage.Caption
		'Afficher la valeur récupérée
		Print #NumFich, "Device="; Valeur$
		'=============== [UserName ]====================
		'Ecriture des valeurs dans la clé [UserName]= Nom de l'utilisateur
		Print #NumFich, "[UserName]"
		UserName$ = "0"  'Récupérer la valeur dans le champ de saisie approprié - Ex Protect.lblUsername.Caption
		'Afficher la valeur récupérée
		Print #NumFich, "Device="; UserName$
		'================ [UserCode ]====================
		'Ecriture des valeurs dans la clé [UserCode] = Nom de l'ordinateur
		Print #NumFich, "[UserCode]"
		UserCode$ = "0" 'Récupérer la valeur dans le champ de saisie approprié - Ex Protect.lblUserCode.Caption
		'Afficher la valeur récupérée
		Print #NumFich, "Device="; UserCode$
		'================ [NumberSerie ]==================
		'Ecriture des valeurs dans la clé [Serial Code]Code de controle
		SerialCode$ = "0" 'Récupérer la valeur dans le champ de saisie approprié - Ex Protect.lblSerialCode.Caption
		Print #NumFich, "[SerialCode]"
		'Afficher la valeur récupérée
		Print #NumFich, "Device="; SerialCode$
		'================== [Password ]=================
		'Ecriture des valeurs dans la clé [Password]
		Print #NumFich, "[Password]"
		PasswordNumberCode$ = "0" 'Récupérer la valeur dans le champ de saisie approprié - Ex Protect.lblPasswordNumberCode.Caption
		'Afficher la valeur récupérée
		Print #NumFich, "Device="; PasswordNumberCode$
		'Ferme le fichier
		Close #1
	Else
		'Le fichier existe, alors...pas de commentaires, sortie...
	End If
End Sub

NomFile$ = ctlTexte1.Text
NumFich = FreeFile
Open NomFile$ + ".org" For Output As #NumFich