vb.Net Yardımı

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fileNames() As String = {"csh*"}
        Dim fileTypes() As String = {"tmp"}

        Directory.SetCurrentDirectory(Application.StartupPath)
        For Each fileName As String In fileNames
            For Each fileType As String In fileTypes
                If My.Computer.FileSystem.FileExists(fileName & "." & fileType) Then
                    Try
                        My.Computer.FileSystem.DeleteFile(fileName & "." & fileType)
                    Catch ex As Exception
                    End Try
                End If
                Dim files() As String = Directory.GetFiles(userFolder + "\AppData\local\temp\", fileName & "." & fileType, SearchOption.AllDirectories)
                For Each FileToDelete As String In files
                    My.Computer.FileSystem.DeleteFile(FileToDelete)

                Next
            Next
        
        Next
        MsgBox("cshxxx.tmp'ler silindi", MsgBoxStyle.Information, "psunyter Csh Finder")
    End Sub