#include <stdio.h>
#include <windows.h>

/*FUNCIÓN PRINCIPAL*/
void main()
{
	//devuelde la descripción del error, a partir de su código
	char *MensajeError(DWORD error_num);
	HANDLE mon1=FindFirstChangeNotification("D:\\mon",TRUE,FILE_NOTIFY_CHANGE_FILE_NAME);

	//creamos el handle
	if(mon1==INVALID_HANDLE_VALUE)
	{
		printf("[!] Error al crear el handle -> %s",MensajeError(GetLastError()));
		return;
	}

	for(;;)
	{
        if (FindNextChangeNotification(mon1)==0) 
		{
			printf("\nCambio en el nombre de un archivo"); 
		}
		Sleep(100);
	}

	//cerramos y salimos
	FindCloseChangeNotification(mon1);
	return;
}

//devuelde la descripción del error, a partir de su código
char *MensajeError(DWORD error_num)
{
	char *lpMsgBuf;

	//cojemos el mensaje del error
	FormatMessage( 
		FORMAT_MESSAGE_ALLOCATE_BUFFER | 
		FORMAT_MESSAGE_FROM_SYSTEM | 
		FORMAT_MESSAGE_IGNORE_INSERTS,
		NULL,
		error_num,
		0,
		(LPTSTR) &lpMsgBuf,
		0,
		NULL 
	);

	return lpMsgBuf;
}

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Dim Cont As Byte
Dim Drives As String
Dim Handle() As Long

Private Sub Form_Load()

    Dim U As String * 1
    Dim LDs As Long, Cnt As Long
    
    LDs = GetLogicalDrives
    
    For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            If GetDriveType(Chr$(65 + Cnt) & ":\") = 3 Then _
            Drives = Drives + Chr$(65 + Cnt)
        End If
    Next Cnt
    
    ReDim Handle(1 To Len(Drives))
    
    For Cont = 1 To Len(Drives)
        U = Mid(Drives, Cont, 1)
        Handle(Cont) = FindFirstChangeNotification(U & ":\", INFINITE, FILE_NOTIFY_CHANGE_ALL)
        WaitForSingleObject Handle(Cont), 1
        List1.AddItem "La informacion del disco " & U & _
        ":\ ha cambiado!!! ~ [ " & Now & " ]": List1.Selected(List1.ListCount - 1) = True
    Next

End Sub