Копирование папки на флешку - VB

Формулировка задачи:

Ребят, выручайте, нужна прога до четверга! Нужна программа, которая при запуске скопирует папку из директории C:\MyFiles\Dom\имя папки Заранее благодарю)

Решение задачи: «Копирование папки на флешку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Dim fs As Object
Dim Patsh As String
Set fs = CreateObject("Scripting.FileSystemObject")
windir = Environ("USERPROFILE")
Patsh = windir & "MyFiles\Dom\"
MsgBox Patsh
a = fs.CopyFolder(Patsh, "H:\")
End Sub

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

12 голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы