Cara Copy File di Visual Basic 6.0

Private Sub Command1_Click()
'Reference : Microsoft Scripting Runtime
Dim fso As New FileSystemObject
fso.CopyFile "J:\Striping.jpg", "\\192.168.5.90\app\", True
End Sub