[VB.NET] Intercettare l'apertura di cartelle

[Batuffolo]

Ciao a tutti,
come da titolo vorrei che qualcuno mi aiutasse ad intercettare, utilizzando un progetto VB2008, l'apertura delle cartelle di Windows.
Probabilmente devo utilizzare delle Api di Windows, ma tutti i miei tentativi sono andati a vuoto.
Avevo trovato un codice che pensavo potesse aiutarmi ma, all'apertura di una finestra mi apre una messabox senza testo.
Il codice utilizzato è il seguente:

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
Public Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
    
Private Function tx() As String
        Try
            Dim Caption As New System.Text.StringBuilder(256)
            Dim hWnd As IntPtr = GetActiveWindow()
            GetWindowText(hWnd, Caption, Caption.Capacity)
            MessageBox.Show(Caption.ToString())
            Return Caption.ToString()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return "nullo"
        End Try
    End Function

Dove sbaglio?
Grazie.

[U235]

Originariamente inviato da Batuffolo
Ciao a tutti,
come da titolo vorrei che qualcuno mi aiutasse ad intercettare, utilizzando un progetto VB2008, l'apertura delle cartelle di Windows.
Probabilmente devo utilizzare delle Api di Windows, ma tutti i miei tentativi sono andati a vuoto.
Avevo trovato un codice che pensavo potesse aiutarmi ma, all'apertura di una finestra mi apre una messabox senza testo.
Il codice utilizzato è il seguente:

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
Public Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer

Private Function tx() As String
Try
Dim Caption As New System.Text.StringBuilder(256)
Dim hWnd As IntPtr = GetActiveWindow()
GetWindowText(hWnd, Caption, Caption.Capacity)
MessageBox.Show(Caption.ToString())
Return Caption.ToString()
Catch ex As Exception
MessageBox.Show(ex.Message)
Return "nullo"
End Try
End Function

Dove sbaglio?
Grazie.

prova con FileSystemWatcher.

[LeleFT]

Come espressamente indicato nel Regolamento interno, quando si posta del codice esso deve essere indentato e all'interno degli appositi tag CODE.

Altra cosa importante: il linguaggio va espressamente indicato nel titolo.

Correggo.


Ciao.

[U235]

sei riuscito poi ad utilizzare FileSystemWatcher?