Module Module1
 
    Sub Main(ByVal args() As String)
 
        Try
            '    Dim ip As String = args(1)
            My.Computer.FileSystem.CopyDirectory( _
              "\\trkde-muc001\c$\softwareDepot", "c:\softwareDepot")
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
End Module