Şimdi arkadaşlar ben bilgisayarda bir son kullanılan dosyaları silmek istiyorum
buda administrator un icinde bulunan recent klasorunun icinde yer alıyor ben bunu bu şekilde yolu yazdıgım zaman aşagıdaki gibi siliyor ama bazı bilgisayarlarda oturum adı farklı oldugu icin bu işlmi yaparken hata veriyor or oturum adı administrator degilde frmtr gibi bende oturum adını ogrenip yola eklemek istiyorum oturum adını ogrenmeyi buldum şu şekilde
bir modul acıyoruz
Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long

daha sonra forma şunları yazıyoruz
Dim s As String
Dim cnt As Long
Dim dl As Long
Dim AKullanıcı As String

cnt = 199
s = String$(200, 0)
dl = GetUserName(s, cnt)

AKullanıcı = Left$(s, cnt)
MsgBox AKullanıcı
bu şekilde oturum dını mesaj olarak veriyor ama ben bunu yola nasıl eklerim yolda aşagıda yardımlarınız bekliyorum iyi gunler vb li gunler

If Check6.Value = "1" Then
Kill ("D:\Documents and Settings\Administrator\Recent\*") 'son acılan dokumanlar
End If
__________________