(VB2008) Ordner auf Desktop erstellen HILFE

[Knaller216]

Ja also ich bin ein Programm am schreiben welches eigentlich fertig ist für welches man aber bestimmte ordner braucht (auf dem Desktop) die ordnerstruktur sollte dann nach klicken des installationsbuttons wie folgt aussehn :

...Desktop\Alles
...Desktop\Alles\Anwendungen
...Desktop\Alles\Batch
...Desktop\Alles\Bilder
...Desktop\Alles\Internet
...Desktop\Alles\Textdateien
...Desktop\Alles\Sounds
...Desktop\Alles\Videos
...Desktop\Alles\ZipRar

wäre euch sehr verbunden wenn das einer machen könnte ;)

[Thr33]

ich will ya nicht frech sein aber das sind basics die du schon können solltest und bei google findest du eine menge stuff der das erklärt

[Knaller216]

Es soll ein PublicProgram werden d.h. dass es nicht speziell an meinen username angepasst sein soll in batch würde es einfach so gehn :
"%USERPROFILE%\Desktop\Alles\Textdateien"

aber in VB hab ich wirklich 0 ahnung wie man da eine variable setzt versucht habe ich es mit mkdir "My.Computer.FileSystem.SpecialDirectories.Desktop\ Alles" das will aber nicht klappen

Achja gegoogelt hab ich ca. 2 stunden hab aber nur schrott gefunden was nicht ging ich bin nicht jemand der erst frägt dann probiert sondern erst probiert dann frägt wenn ich wirklich keine ahnung hab

[DarkFire]

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...

[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 :D

[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.SpecialFolde r.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

[Knaller216]

wie würde das dann entsprechend für diesen abschnitt aussehen? danke für die hilfe ;)
ahhh es klappt :D was haltet ihr von einem release?

http://ukash216.uk.funpic.de/Public/MoveThizbyChris.rar

ist clean, könnt aber gerne nochmal auf viren überprüfen xD

Im Programm rechts oben, Grünes Knöpfchen zeigt die Info an und rotes Knöpfchen geht zum MainScreen zurück gehen ;)