برنامه حدف كردن فايل هاي داخل پوشه Tmp و ...

[ΛΛ Θ l-l $ Σ Ω]

سلام
من مي خوام يه برنامه ساده با VB بنويسم نميدونم چطوري بايد اين كار رو انجام بدم.
من ميخوام برنامه درايو ويندوز رو پيدا كنه بعد فايل هاي داخل پوشه هاي Temp و Prefetch رو پاك كنه
يه كار ديگه هم انجام بده، اسم يوزر رو پيدا كنه و بعد فايل هاي داخل پوشه
C:\Documents and Settings\EsmUser\Recent
رو پاك كنه همين
من بلدم كه درايو ويندوز و اسم يوزر رو پيدا كنم اما نمي دونم چه جوري بنويسم...

[ΛΛ Θ l-l $ Σ Ω]

چرا كسي جواب نمي ده
ببينيد اينجوري درسته
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

[ΛΛ Θ l-l $ Σ Ω]

چرا كسي جواب نمي ده

[avini]

امروز جمعست !
فردا روز کاره !

[Mamad2003]

این فک کنم بهتره :

کد:

Private Sub Command1_Click()

On Error Resume Next
kill Environ("windir") & "\temp\*.*"
command1.Enabled = False

End Sub

[ΛΛ Θ l-l $ Σ Ω]

این فک کنم بهتره :

کد:

Private Sub Command1_Click()

On Error Resume Next
kill Environ("windir") & "\temp\*.*"
command1.Enabled = False

End Sub

درسته اين بهتره
اما براي اين چي كار كنم
C:\Documents and Settings\EsmUser\Recent

[mbza11]

سلام. خوب همون طوری که خودت نوشتی اسم یوزر رو می تونی پیدا کنی. اسم یوزر رو داخل یه متغیر به اسم EsmUser بریز بعد کد زیر رو امتحان کن.

کد:

MsgBox Left(Environ("windir"), 1) & ":\Documents and Settings\" & EsmUser & "\Recent"

به احتمال زیاد جوابی که می خوای رو می گیری.

[ΛΛ Θ l-l $ Σ Ω]

خوب حالا چطوري پاكش كنم؟
MsgBox درسته اسم يوزر C:\Documents and Settings\Amin\Recent

[mbza11]

سلام. می تونی از کد زیر استفاده کنی

کد:

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

فکر نمی کنم که نیاز به توضیح داشته باشه.

[ΛΛ Θ l-l $ Σ Ω]

ممنون درست شد

[ΛΛ Θ l-l $ Σ Ω]

سلام چطوری میشه فهمید که توی آدرس زیر فایل هست یا نه

کد:

Path = Left(Environ("windir"), 1) & ":\Documents and Settings\" & EsmUser & "\Recent"

آیا یا با PathIsDirectoryEmpty میشه فهمید؟