(VB2008) Ordner auf Desktop erstellen HILFE

[Sawyer]

Prüf in der foreach schleife einfach ab um welchen Dateityp es sich handelt , verknüpfungen sind .lnk
wenn es eine Verknüpfung ist , einfach nicht verschieben

Dim foundFileInfo As New System.IO.FileInfo(foundFile)
      If Not foundFileInfo.Name.Contains(".lnk") Then
           My.Computer.FileSystem.MoveFile(foundFile, My.Computer.FileSystem.SpecialDirectories.Desktop & "\Alles\Anderes\" & foundFileInfo.Name)
      End If
Next

MfG