bè non proprio, pechè in parte qualcosa esce fuori ma la prima parte del codice non ci riesco:

codice:
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports OpenNETCF.Desktop.Communication
Imports System.IO

Public Class Form1
    Dim WithEvents m_rapi As New RAPI
    Dim m_activeSync As ActiveSync
    Dim m_selectedFile As String = ""
    Dim m_path As String = ""

    Private Sub activeSync_Disconnect()
        Me.m_rapi.Disconnect()
    End Sub

    Private Sub activeSync_Active()
        Me.m_rapi.Connect()
    End Sub

    Private Sub LoadDirectories(ByVal directory As String)
        Dim fl As FileList = m_rapi.EnumFiles(directory + "*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) = FileAttributes.Directory Then
                    Dim node As TreeNode = Me.treeView_Directories.Nodes(0).Nodes.Add(fi.FileName)
                    Me.LoadDirectories(directory + fi.FileName, node)

                End If
            Next
        End If
    End Sub


    Private Sub LoadDirectories(ByVal directory As String, ByVal node As TreeNode)
        Dim fl As FileList = m_rapi.EnumFiles(directory + "\\*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) = FileAttributes.Directory Then
                    Dim node1 As TreeNode = node.Nodes.Add(fi.FileName)
                    Me.LoadDirectories(directory + "\\" + fi.FileName, node1)
                End If
            Next
        End If
    End Sub


    Private Sub LoadFilesFromDirectory(ByVal directory As String)
    End Sub

    Private Sub treeView_Directories_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
        If Not m_rapi.Connected Then
            Return
        End If
        Me.listView_Files.Clear()
        Dim s As String = ParsePath(e.Node.FullPath)
        Dim fl As FileList = m_rapi.EnumFiles(s + "\\*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) <> (FileAttributes.Directory) Then
                    Me.listView_Files.Items.Add(fi.FileName)
                End If
            Next
        End If

    End Sub

    Private Function ParsePath(ByVal treeNodePath As String) As String
        If treeNodePath.StartsWith("Root") Then
            Return treeNodePath.Replace("Root", "")
        Else
            Return treeNodePath
        End If
    End Function

    Public ReadOnly Property SelectedFile() As String
        Get
            Return Me.m_selectedFile
        End Get
    End Property

    Public ReadOnly Property Path() As String
        Get
            Return Me.m_path
        End Get
    End Property

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m_rapi.Connect()
        toolStripMenuItem1.Enabled = False

    End Sub

    Private Sub saveToDesktopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveToDesktopToolStripMenuItem.Click
        If Me.listView_Files.SelectedItems.Count > 0 Then
            Me.m_path = Me.ParsePath(Me.treeView_Directories.SelectedNode.FullPath)
            Me.m_selectedFile = Me.listView_Files.SelectedItems(0).Text

            saveFileDialog1.FileName = m_selectedFile
            If saveFileDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                m_rapi.CopyFileFromDevice(saveFileDialog1.FileName, m_path + "\\" + m_selectedFile, True)
            End If
        End If
    End Sub

    Private Sub aboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aboutToolStripMenuItem.Click
 
        If m_rapi.DevicePresent = True Then
            m_rapi.Connect()
            LoadDirectories("\\")
        Else
            MessageBox.Show("Connettere il dispositivo", "Dispositivo assente", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        If m_rapi.Connected = True Then toolStripMenuItem1.Enabled = True

    End Sub


End Class