Скопировать данные из одной учетной записи ОС в другую - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д