conan52
07-09-2010, 17:06
Private Sub cmdbrowse_Click()
Dim a
Dim m
'Xác ??nh th? m?c
Set PathFolder = CreateObject("Shell.Application") _
.BrowseForFolder(0, "Tim den thu muc :", 0)
If Not PathFolder Is Nothing Then Txtpath.Text = PathFolder.Self.Path ' ??a ???ng d?n th? m?c vào textbox
End Sub
Private Sub Command1_Click()
a = Txtpath.Text
m = "\abc.exe"
FileCopy "a &\abc.exe", "D:\abc.exe"
End Sub
cả nhà cho mình hỏi cách copy file ở trên có đúng k? Nếu k hưỡng dần mình copy với. Yêu cầu đặt ra khi copy là đã có đường dẫn đến folder chứa file rồi bây giơ phải copy 1 file trong folder ấy đến một Folder xác định. Tớ tks cả nhà trc ạ :)
Dim a
Dim m
'Xác ??nh th? m?c
Set PathFolder = CreateObject("Shell.Application") _
.BrowseForFolder(0, "Tim den thu muc :", 0)
If Not PathFolder Is Nothing Then Txtpath.Text = PathFolder.Self.Path ' ??a ???ng d?n th? m?c vào textbox
End Sub
Private Sub Command1_Click()
a = Txtpath.Text
m = "\abc.exe"
FileCopy "a &\abc.exe", "D:\abc.exe"
End Sub
cả nhà cho mình hỏi cách copy file ở trên có đúng k? Nếu k hưỡng dần mình copy với. Yêu cầu đặt ra khi copy là đã có đường dẫn đến folder chứa file rồi bây giơ phải copy 1 file trong folder ấy đến một Folder xác định. Tớ tks cả nhà trc ạ :)