(VB2008) Ordner auf Desktop erstellen HILFE

[Knaller216]

wie würde dann der befehl zum erstellen des BasicOrdners aussehn (Alles)?
mir fehlt nämlich der befehl zum ordner erstellen xD (sorry hab gestern erst damit angefangen war sonst immer bei batch das ist einfacher xD)
hab XP xD

es hat sich erledigt, gesucht war nach :
MkDir(My.Computer.FileSystem.SpecialDirectories.De sktop & "\Alles")
vielen dank für die hilfe

[Sawyer]

Vista:
"C:\Users\" & System.Environment.UserName & "\Desktop\"
Xp: hab grad keine lust meine VM zu starten^^


"C:\Users\", "\Desktop\" --> Sind die Ordner
System.Environment.UserName --> Setzt den aktuellen Usernamen an die Stelle
Die & Zeichen verbinden das ganze...

da schmerzen einem ja die Augen X)

wenn dann schon richtig^^

Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

MfG

[Knaller216]

mhhm vielleicht kann mir einer helfen, ich hab das programm eigentlich fertig doch da ist noch ein problem

For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
My.Computer.FileSystem.SpecialDirectories.Desktop, _
FileIO.SearchOption.SearchTopLevelOnly, "*.*")

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

so siehts aus, klappt auch, es soll alle restlichen dateien verschieben deshalb auch *.* aber es soll die verknüpfungen auf dem desktop lassen aber das tut es nicht xD

[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