Скопировать данные из одной учетной записи ОС в другую - Visual Basic .NET
Формулировка задачи:
Всем привет! Хочу попробовать написать программку для копирования данных с одной учетки в другую, а именно папки рабочий стол и мои документы.
1. Как я понимаю нужно вначале определить что за ОС стоит на компе.
2. получить список пользователей, залогинившихся на компьютер, скажем в Combobox.
3. Выполнить копирование файлов.
Структура программы проста:
на форме 2 Combobox(из которых выбираем с какой учетки и в какую будет произведено копирование);
кнопка, при нажатии на которую будет происходить непосредственно копирование файлов
и progressbar(по возможности) отобразить ход копирования
Какие есть идеи? заранее спасибо!)
Решение задачи: «Скопировать данные из одной учетной записи ОС в другую»
textual
Листинг программы
Dim names() As String
Using keyProfileList As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList", False)
Dim profilesDirectory As String = keyProfileList.GetValue("ProfilesDirectory")
names = keyProfileList.GetSubkeyNames()
For I = 0 To names.Length - 1
Using key As RegistryKey = keyProfileList.OpenSubkey(names(I), False)
' Локальные SID начинаются с
If Not names(I).StartsWith("S-1-5-21-") Then Continue For
Dim profileImagePath As String = key.GetValue("ProfileImagePath")
If Not profileImagePath.StartsWith(profilesDirectory, StringComparison.OrdinalIgnoreCase) Then Continue For
Dim userName As String = profileImagePath.Substring(profilesDirectory.Length).TrimStart(""c)
pathes.Add(profileImagePath)
ComboBox1.Items.Add(userName)
ComboBox2.Items.Add(userName)
End Using
Next
End Using