پاسخ سوال 1 : به دلیل عدم پاسخگویی از طرف دوستان پاسخ 1 رو خودم با یه شیوه راحت مطرح می کنم :
in VB6
Private Sub Command1_Click()
New_Copy_Function_By_blackhacking21 "D:\linux.sh", "F:\sh.sh"
End Sub
Private Sub New_Copy_Function_By_blackhacking21(path1 As String, path2 As String)
Dim...