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