Dosya Yönetimi (v.Basic Kaynak-1)

Dosya Yönetimi

CurDir : Geçerli sürücü ve dizin
ChDir : Sürücü ve dizinin değiştirir
ChDrive : Sürücü değiştirir
MkDir : Geçerli sürücü ve dizinde yeni bir dizin oluşturur
RmDir : İstenen boş dizinin siler
FileCopy : Dosyanın istenilen isimle istenilen yere kopyalar
Kill : Dosyayı siler (Joker karakter kullanabilir)
Name : Dosyanın adını ve yolunu değiştirir
FileLen : Dosyanın byte olarak büyüklüğünü verir
FileDateTime : Dosyanın zaman bilgisini verir
GetAttr : Dosyanın özelliklerini verir
SetAttr : Dosyanın istenen özelliğini değiştirir
Dir : Belirtilen yoldaki dosyaların listesini verir


Dosya_Boyutu = Str$(FileLen(PathDosyaAdı))
Dosya_Tarih = Str$(FileDateTime(PathDosyaAdı))

Private Sub Form_Click()
Swp = Dir("C:\*.*")
Do While K <> ""
Print Swp
Swp = Dir
Loop
End Sub

Text1.Text = FileDateTime("c:\autoexec.bat")
MkDir "Deneme" ‘ Aktif dizin altına
RmDir "C:\deneme\denemealt\altalt"
Kill "c:\*.bat"
ChDrive "D"
ChDir "D:\deneme\alt"
Name "C:\Autoexec.Bat" As "C:\Temp.Bat"
SetAttr "C:\Autoexec.Bat",vbHidden+vbReadOnly
X = GetAttr("C:\Autoexec.Bat")




Sistem Klasörlerini Bulmak

(Modul)(General)(Declaration)

Option Explicit

Public Declare Function GetSystemDirectory Lib "kernel32" Alias _

GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _

(ByVal nSize As Long, ByVal lpBuffer As String) As Long

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias _

"GetWindowsDirectoryA" (ByVal lpBuffer As String, _

ByVal nSize As Long) As Long



Private Sub Command1_Click()

Label1 = GetWinDir()

Label2 = GetTempDir()

Label3 = GetSystemDir()

End Sub



Private Function GetSystemDir() As String

Dim r As Long

Dim nSize As Long

Dim tmp As String

tmp = Space$(256)

nSize = Len(tmp)

r = GetSystemDirectory(tmp, nSize)

GetSystemDir = TrimNull(tmp)

End Function



Public Function GetTempDir() As String

Dim r As Long

Dim nSize As Long

Dim tmp As String

tmp = Space$(256)

nSize = Len(tmp)

r = GetTempPath(nSize, tmp)

GetTempDir = TrimNull(tmp)

End Function



Private Function GetWinDir() As String

Dim r As Long

Dim nSize As Long

Dim tmp As String

tmp = Space$(256)

nSize = Len(tmp)

r = GetWindowsDirectory(tmp, nSize)

GetWinDir = TrimNull(tmp)

End Function





Private Function TrimNull(item As String)

Dim pos As Integer

pos = InStr(item, Chr$(0))

If pos Then

TrimNull = Left$(item, pos - 1)

Else

TrimNull = item

End If

End Function

Dosyanın Olup Olmadığını Kontrol Etmek

Private Sub Form_Load()

Dosya = Dir("C:\AUTOEXEC.BAT")

If Dosya = " " Then

MsgBox "Dosya Bulunamadı"

Else

MsgBox "Dosya Bulundu"

End If

End Sub

Dosya Uzantısını Bulmak

Function GetExtension(Filename As String)

Dim PthPos, ExtPos As Integer

For i = Len(Filename) To 1 Step -1

If Mid(Filename, i, 1) = "." Then

ExtPos = i

For j = Len(Filename) To 1 Step -1

If Mid(Filename, j, 1) = "\" Then

PthPos = j

Exit For

End If

Next j

Exit For

End If

Next i

If PthPos > ExtPos Then

Exit Function

Else

If ExtPos = 0 Then Exit Function

GetExtension = Mid(Filename, ExtPos + 1, Len(Filename) - ExtPos)

End If

End Function



Private Sub Command1_Click()

Label1.Caption = GetExtension("c:\windows\vb\vb.exe")

End Sub

Tam Yolu Verilmiş Dosyanın Adını Bulmak


Function StripPath(ref3$) As String

Dim ref1%, ref2%

StripPath$ = ref3$

ref1% = InStr(ref3$, "\")

Do While ref1%

ref2% = ref1%

ref1% = InStr(ref2% + 1, ref3$, "\")

Loop

If ref2% > 0 Then StripPath$ = Mid$(ref3$, ref2% + 1)

End Function



Private Sub Command1_Click()

Label1.Caption = StripPath("c:\windows\media\tada.wav")

End Sub

Windows Belgeler Mönüsünün İçeriğini Silmek

(Modul)(General)(Declaration)

Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, _

ByVal pv As String)



Private Sub Command1_Click()

SHAddToRecentDocs 2, vbNullString

End Sub

Windows Belgeler Mönüsüne Dosya Eklemek

(Modul)(General)(Declaration)

Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, _

ByVal pv As String)



Private Sub Command1_Click()

Dim Ekle As String

Ekle = "c:\EklenecekDosya.txt"

SHAddToRecentDocs 2, Ekle

End Sub

saol kardesim güzel paylasım