|
ActiveX Kontrolleri (TAMAMI)
RICHTX32.OCX
MSCOMCTL.OCX
COMDLG32.OCX
Klasör Oluşturma
Private Sub Command1_Click()
Dim fso, f, fc, nf, yol
yol = "c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(yol)
Set fc = f.SubFolders
Set nf = fc.Add("yeni_klasor")
End Sub
Liste Kayıt ve Okuma
'Kayıt
Private Sub Command1_Click()
Open App.Path & "\" & "Yazi.txt" For Output As 1
For x = 0 To List1.ListCount - 1
List1.ListIndex = x
Print #1, List1.Text
Next
Close 1
End Sub
'Oku
Private Sub Command2_Click()
Open App.Path & "\" & "Yazi.txt" For Input As 1
Do Until EOF(1)
Line Input #1, st
List1.AddItem st
Loop
Close 1
End Sub
|
