Скопировать данные из одной учетной записи ОС в другую - 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

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы