Dim RAPI As New OpenNETCF.Desktop.Communication.RAPI
            If RAPI.DevicePresent = True Then
                RAPI.Connect()
                Dim fi As OpenNETCF.Desktop.Communication.FileInformation
                For Each fi In RAPI.EnumFiles("My Documents\\ToPC\\*")
                    'MsgBox(fi.FileName.ToString & vbNewLine & 
                    ' fi.CreateTime.ToString)
                    RAPI.CopyFileFromDevice("E:\Test\fromMDE\", "My" & _
                      "Documents\\ToPC\\" & fi.FileName, True)
                Next
                RAPI.Disconnect()
                'RAPI.EnumFiles("My Documents\\Digital Data\\")
            Else
                MsgBox("Gerät nicht angeschlossen", MsgBoxStyle.Exclamation, _
                  "Achtung:")
            End If

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten