Moin,
ich bin blutiger Programmieranfänger und habe grade ein Programm in vb.net geschrieben, das per Knopfdruck alle Ordner wie: Appdata, Downloads, Documents, Pictures usw in der Registry auf zu einem anderen Pfad ändert. Das habe ich auch hinbekommen. Leider ist der Pfad des Ordner hardcoded. Ich möchte diesen selbst festlegen können, indem ich den Pfad in einer Textbox packe. Das Ding dabei ist, ich möchte es so haben, das ich nur eingeben muss: H:\Benutzer. Um welchen Ordner es sich handelt und was er am Ende dran hängen soll, soll das Programm selber machen. z.B. Den Downloadpfad mit dem Namen "{374DE290-123F-4565-9164-39C4925E467B}" soll er dann so machen: H:\Benutzer\Downloads. Kann mir einer sagen wie ich das machen kann ? Der Source Code meinen Programmes sieht im Moment noch so aus.
Danke schonmal im vorraus.
MfG
anideath
ich bin blutiger Programmieranfänger und habe grade ein Programm in vb.net geschrieben, das per Knopfdruck alle Ordner wie: Appdata, Downloads, Documents, Pictures usw in der Registry auf zu einem anderen Pfad ändert. Das habe ich auch hinbekommen. Leider ist der Pfad des Ordner hardcoded. Ich möchte diesen selbst festlegen können, indem ich den Pfad in einer Textbox packe. Das Ding dabei ist, ich möchte es so haben, das ich nur eingeben muss: H:\Benutzer. Um welchen Ordner es sich handelt und was er am Ende dran hängen soll, soll das Programm selber machen. z.B. Den Downloadpfad mit dem Namen "{374DE290-123F-4565-9164-39C4925E467B}" soll er dann so machen: H:\Benutzer\Downloads. Kann mir einer sagen wie ich das machen kann ? Der Source Code meinen Programmes sieht im Moment noch so aus.
VB.NET-Quellcode
- Imports Microsoft.Win32
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "My Pictures", "H:\Benutzer\Bilder")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{374DE290-123F-4565-9164-39C4925E467B}", "H:\Benutzer\Downloads")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}", "H:\Benutzer\Saved Games")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{56784854-C6CB-462B-8169-88E350ACB882}", "H:\Benutzer\Contacts")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{7D1D3A04-DEBB-4115-95CF-2F29DA2920DA}", "H:\Benutzer\Searches")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{A520A1A4-1780-4FF6-BD18-167343C5AF16}", "H:\Benutzer\Appdata\LocalLow")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "{BFB9D5E0-C6A9-404C-B2B2-AE6DB6AF4968}", "H:\Benutzer\Links")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "AppData", "H:\Benutzer\Appdata\Roaming")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "My Music", "H:\Benutzer\Music")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "My Video", "H:\Benutzer\Videos")
- My.Computer.Registry.SetValue(
- "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\", "Personal", "H:\Benutzer\Documents")
- MessageBox.Show("Alle Ordner wurden geändert")
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
- End Sub
- Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, Label2.Click
- End Sub
- End Class
Danke schonmal im vorraus.
MfG
anideath