Başlangıç > Kodlar > Visual Basic 6’da scripting ile çok süratli dosya işlemleri (FSO)

Visual Basic 6’da scripting ile çok süratli dosya işlemleri (FSO)


Fso,file,folder ve drive nesneleri ile scripting örneğidir. ama çnce scrrun.dll(system32 içinde) vb2e yükleyiniz.

‘bu kodları kullanmak için scrrun.dll dosyasını vb e
‘eklemeniz gerekir

‘command1 : fso ile dosya okumak
‘command2 : fso ve file nesneleri ile dosya bilgileri okumak
‘command3 : folder ve fso ile folderişlemleri
‘command4 : fso ve drive nesneleri ile sürücü bilgisi görüntüleme…

Option Explicit

Private Sub Command1_Click()
‘değişken tanımları
Dim fso As New FileSystemObject
Dim ts As TextStream
‘dosya açılıyor
Set ts = fso.OpenTextFile(Environ(“windir”) & “\system.ini”)
‘dosya sonuna kadar okunuyor.
Do While Not ts.AtEndOfStream
Debug.Print ts.ReadLine
Loop
‘dosyayı kapatıyoruz.
ts.Close
End Sub

Private Sub Command2_Click()
Dim fso As New FileSystemObject
Dim f As File
‘File nesnesine referans ediliyor.
Set f = fso.GetFile(Environ(“windir”) & “\system.ini”)
MsgBox f.Size ‘dosya boyutu göster
End Sub

Private Sub Command3_Click()
Dim fso As New FileSystemObject
Dim f As Folder, sf As Folder, path As String
‘yol ayarlanıyor.
path = Environ(“windir”)
‘folder nesnesine referans ediliyor
Set f = fso.GetFolder(path)
‘altdizinler için tekrarlanıyor.
For Each sf In f.SubFolders
Debug.Print sf.Name
Next
End Sub

Private Sub Command4_Click()
Dim fso As New FileSystemObject
Dim mydrive As Drive
Dim path As String
‘yol ayarlanıyor
path = “C:\”
‘nesne alınıyor.
Set mydrive = fso.GetDrive(path)
‘doğruluk kontrol ediliyor
MsgBox mydrive.DriveLetter ‘c sürücüsü gösteriliyor.
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: