سلام
من مي خوام يه برنامه ساده با VB بنويسم نميدونم چطوري بايد اين كار رو انجام بدم.
من ميخوام برنامه درايو ويندوز رو پيدا كنه بعد فايل هاي داخل پوشه هاي Temp و Prefetch رو پاك كنه
يه كار ديگه هم انجام بده، اسم يوزر رو پيدا كنه و بعد فايل هاي داخل پوشه
C:\Documents and Settings\EsmUser\Recent
رو پاك كنه همين
من بلدم كه درايو ويندوز و اسم يوزر رو پيدا كنم اما نمي دونم چه جوري بنويسم...
چرا كسي جواب نمي ده
ببينيد اينجوري درسته
Private Sub Command1_Click()
On Error Resume Next
If Environ("windir") = "C:\WINDOWS" Then
Kill "C:\WINDOWS\temp\*.*"
Command1.Enabled = False
End If
If Environ("windir") = "D:\WINDOWS" Then
Kill "D:\WINDOWS\temp\*.*"
Command1.Enabled = False
End If
End Sub
امروز جمعست !
فردا روز کاره !
Mamad2003 نوشته است:این فک کنم بهتره :
کد:
Private Sub Command1_Click()
On Error Resume Next
kill Environ("windir") & "\temp\*.*"
command1.Enabled = False
End Sub
درسته اين بهتره
اما براي اين چي كار كنم
C:\Documents and Settings\EsmUser\Recent
سلام. خوب همون طوری که خودت نوشتی اسم یوزر رو می تونی پیدا کنی. اسم یوزر رو داخل یه متغیر به اسم EsmUser بریز بعد کد زیر رو امتحان کن.
کد:
MsgBox Left(Environ("windir"), 1) & ":\Documents and Settings\" & EsmUser & "\Recent"
به احتمال زیاد جوابی که می خوای رو می گیری.
خوب حالا چطوري پاكش كنم؟
MsgBox درسته اسم يوزر C:\Documents and Settings\Amin\Recent
سلام. می تونی از کد زیر استفاده کنی
کد:
Dim Fso
Dim Fld
Dim Path As String
Set Fso = CreateObject("Scripting.FIleSystemObject")
EsmUser = "S.M.B Productions"
Path = Left(Environ("windir"), 1) & ":\Documents and Settings\" & EsmUser & "\Recent"
Set Fld = Fso.GetFolder(Path)
For Each item In Fld.Files
Fso.DeleteFile (item)
Next
فکر نمی کنم که نیاز به توضیح داشته باشه.
سلام چطوری میشه فهمید که توی آدرس زیر فایل هست یا نه
کد:
Path = Left(Environ("windir"), 1) & ":\Documents and Settings\" & EsmUser & "\Recent"
آیا یا با PathIsDirectoryEmpty میشه فهمید؟