Başlangıç > Kodlar > Visual Basic 6 ile en son kullanılan dökümanları silmek

Visual Basic 6 ile en son kullanılan dökümanları silmek


Windows için en son kullanılan dokumanları silmek için

windows için en son kullanılan dokumanları silmek için kullanılabilecek bir program.

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
Dim ret, uzu As Long
Dim dizin As String
uzu = 254
dizin = Space(uzu)
ret = GetWindowsDirectory(dizin, uzu)
dizin = Mid(dizin, 1, ret)
dizin = Trim(dizin & "
ecent*.*")
FileSystem.Kill dizin
Print dizin
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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: