VB ile dosya oluşturma !

[spectacuLar]

Kod: Tümünü seç

Dim kla As String
Private Sub Command1_Click()
kla = InputBox("yeni klasör adı?", "KLASÖR OLUsTUR")
MkDir kla
Dir1.Refresh
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDrive Drive1
End Sub

[spectacuLar]

VB ile dosya silme

Kod: Tümünü seç

Dim kla As String
Dim cevap As Byte
Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDrive Drive1
End Sub
' ********************* KLASÖR OLUsTUR DÜĞMESİ
Private Sub Command1_Click()
kla = InputBox("yeni klasör adı?", "KLASÖR OLUsTUR")
MkDir kla
Dir1.Refresh
End Sub
' ********************* KLASÖR SİL DÜĞMESİ
Private Sub Command2_Click()
kla = Dir1.List(Dir1.ListIndex)
cevap = MsgBox(kla + " klasörü silinsin mi", 4, "ONAY")
If cevap = 6 Then
    RmDir kla
    Dir1.Refresh
End If
End Sub