Dim t As TextBox

If Page.Master IsNot Nothing Then
	For Each control As Control In Page.Master.Controls
		If TypeOf control Is HtmlForm Then
			For Each controlform As Control In control.Controls
				If TypeOf controlform Is ContentPlaceHolder Then
					t = DirectCast(controlform.FindControl("TextBox1"), TextBox)
					If t IsNot Nothing Then
						Exit For
					End If
				End If
			Next
		End If
	Next
Else
	t = DirectCast(Page.FindControl("TextBox1"), TextBox)
End If

Public Function mf_eliminarArchivoCarpeta(ByVal int_acto As Integer, _
                                              ByVal str_sdir As String, ByVal str_sPath As String) As Boolean
        Try
            If int_acto = 1 Then ' Archivo
                My.Computer.FileSystem.DeleteFile( _
                Application.StartupPath & "\" & str_sPath, _
                FileIO.UIOption.AllDialogs, _
                FileIO.RecycleOption.SendToRecycleBin, _
                FileIO.UICancelOption.DoNothing)
                Return True

            ElseIf int_acto = 2 Then 'Carpeta
                My.Computer.FileSystem.DeleteDirectory( _
                str_sdir, _
                FileIO.UIOption.AllDialogs, _
                FileIO.RecycleOption.SendToRecycleBin, _
                FileIO.UICancelOption.DoNothing)
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function