Program içerisinde kullanacağımız bazı kodlar sayesinde çalışma anında geçerli klasör veya dizinin adını öğrenebilir, başka bir dizine geçebilir, istediğiniz dizini veya dosyayı silebilir, yeni bir dizin oluşturabiliriz.

CurDir

Aktif dizini gösterir.

Private Sub Command1_Click()

MsgBox CurDir

End Sub

ChDir

Aktif dizini değiştirir.

Private Sub Command1_Click()

    ChDir "c:"

    MsgBox CurDir

End Sub

ChDrive

Geçerli sürücüyü değiştirir.

Private Sub Command1_Click()

    ChDrive "c"

    ChDir "c:program files"

    MsgBox CurDir

End Sub

MkDir

Herhangi bir sürücüde dizin oluşturmak için kullanılır.

Private Sub Command1_Click()

    MkDir "c:deneme klasör"

End Sub

RmDir

Herhangi bir sürücüde ki içi boş olan bir dizini silmek için kullanılır.

Private Sub Command1_Click()

    RmDir "c:deneme klasör"

            ‘Dikkat edileceği gibi silinen klasör çöp kutusuna gitmedi. ‘eğer dizinin içinde bir dosya kaldıysa yine hata verir.  Hatayı önlemek için

On Local Error GoTo hata

    RmDir "c:deneme klasör"

    Exit Sub

hata:

    MsgBox ("Dizin silinemedi " & Error)

End Sub

FileCopy

Bir klasörden başka bir klasöre kopyalamak için kullanılır.

‘öncelikle c:belgelerim ‘e bir tane kopya.txt dosyası jazırlanır.

Private Sub Command4_Click()

    FileCopy "c:belgelerimkopya.txt", "c:deneme klasörkopya.txt" : End Sub

FileLen

Bir dosyanın byte olarak büyüklüğünü verir.

Private Sub Command5_Click()

    MsgBox (FileLen("c:deneme klasörkopya.txt"))

            ‘ikinci olarak dosyaya bir şeyler yazıp tekrar deneyin

End Sub

FileDateTime

Bir dosyanın en son değiştirildiği tarihi öğrenmek için kullanılır.

Private Sub Command6_Click()

    MsgBox (FileDateTime("c:deneme klasörkopya.txt"))

End Sub

GetAttr

Bir dosyanın özelliklerini öğrenmek için kullanılır. Bu komut normalde geriye bir rakam döndürür.

Örnek 1

Private Sub Command7_Click()

    MsgBox (GetAttr("c:deneme klasörkopya.txt"))

End Sub

Örnek 2

Private Sub Command8_Click()

Cls

Dim dosya

    dosya = GetAttr("c:deneme klasörkopya.txt")

Print "kopya.txt"

    If dosya And 0 Then Print "Normal Dosya"

    If dosya And 1 Then Print "Salt Okunur"

    If dosya And 2 Then Print "Gizli Dosya"

    If dosya And 4 Then Print "Sistem Dosyası"

    If dosya And 16 Then Print "Klasör"

    If dosya And 32 Then Print "Arşiv Dosyası"

End Sub

SetAttr

Bir dosyanın özelliklerini değiştirmek için kullanılır.

Örnek 1

Private Sub Command9_Click()

    SetAttr "c:deneme klasörkopya.txt", 1 + 2 + 4 + 32

End Sub

Örnek 2

Private Sub Command9_Click()

    SetAttr "c:deneme klasörkopya.txt", vbNormal + vbReadOnly + vbHidden + vbSystem + vbArchive

End Sub

Name

İstediğimiz bir klasörün veya bir dosyanın adını değiştirmek için kullanılır.

Örnek 1

Private Sub Command11_Click()

Name "c:belgelerimkopya.txt" As "c:deneme klasörkopya2.txt"

End Sub

            NOT: Program ikinci kez çalıştırıldığında dikkat edileceği gibi hata komutu verir. Bunu önlemek için,

Örnek 2

Private Sub Command12_Click()

On Error GoTo k

    Name "c:belgelerimkopya.txt" As "c:deneme klasörkopya2.txt"

Exit Sub

k:

    MsgBox ("Böyle bir dosya bulunamadı")

End Sub

Dir

İstediğimiz bir klasördeki dosyaların listesini göstermek için kullanılır.

Örnek 1

Private Sub Command10_Click()

Cls

Dim dosya

dosya = Dir("c:*.*")

Print dosya: End Sub

Örnek 2

Private Sub Command10_Click()

Cls

Dim dosya

dosya = Dir("c:*.*")

While dosya <> ""  ‘ Başka dosya kalmayıncaya kadar devam et.

Print dosya

dosya = Dir

Wend

End Sub

Kill

İstediğimiz bir klasörün veya bir dosyanın silinmesi için kullanılır.

Bu işlemi yaparken çok dikkatli olmamız lazım çünkü silinen dosya çöp kutusuna gitmez.

Örnek 1

Private Sub Command13_Click()

    Kill "c:deneme klasörkopya.txt"

End Sub

Örnek 2

Private Sub Command14_Click()

On Error GoTo k

    Kill "c:deneme klasörkopya.txt"

Exit Sub

k:

    MsgBox ("Böyle bir dosya bulunamadı")

End Sub

Örnek 3

Private Sub Command15_Click()

On Error GoTo k

Dim c

    c = MsgBox("dosya silinecek mi ?", vbYesNo)

    If c = vbYes Then

        Kill "c:deneme klasörkopya.txt"

    MsgBox ("dosya silindi")

    Exit Sub

k:

    MsgBox ("Böyle bir dosya bulunamadı")

    End If

End Sub

End

Bir formu sonlandırmak için kullanılır.

Private Sub Command17_Click()

End

End Sub