Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Directorio As String = Application.StartupPath
        Dim Fecha As DateTime = DateTime.Now
 
        For Each archivo As String In My.Computer.FileSystem.GetFiles(Directorio, FileIO.SearchOption.SearchTopLevelOnly)
 
            Dim Fecha_Archivo As DateTime = My.Computer.FileSystem.GetFileInfo(archivo).LastWriteTime
            Dim diferencia = (CType(Fecha, DateTime) - CType(Fecha_Archivo, DateTime)).TotalDays
 
            If diferencia >= 15 Then
                File.Delete(archivo)
            End If
 
        Next
 
    End Sub
 
End Class
 
 

package Projectos;
import java.net.URL;
 
import java.net.URLConnection;
import java.io.*;
import java.util.*;
public class Cabezera {
 
 
 
		public static void main(String[]args){
			try{
 
				BufferedWriter bw = new BufferedWriter(new FileWriter("cabezera.txt"));				
				URL url=new URL("http://www.ieso.edu.mx");
	            URLConnection urlConnection =url.openConnection();            
 
	            for (int i=0; ; i++) 
	            {
	                  String name = urlConnection.getHeaderFieldKey(i);
	                  String value = urlConnection.getHeaderField(i);
	                  if (name == null && value == null){
	                    break;         
	                  }
	                  if (name == null){
	                    bw.write("Server HTTP version, Response code:");
	                    bw.write(value);
	                    bw.write("\n");
	                  }
	                  else{
	                	  bw.write(name + "=" + value);
	                  }
	            }
 
	            bw.close();				
			    }catch(Exception e) { System.out.println("Error..." + e.toString()); 
			    }		    
 
	        }
	}
 

Public Class Form1
 
	Dim Password As String = "Contraseña"
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		IF TextBox1.Text = Password THEN
			Form2.Show()
			Me.Close()
		Else
			MsgBox("Error: Contraseña Incorrecta")
		End IF
	End Sub
 
End Class