y para el ftp es mas chungo, pero es lo mismo solo que cuando te pida bajar algo le envias un binario, y cuando quiera subir algo preparas el programa para que guarde un binario en local
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
sub main
cOmAnDo = GenMyPath() & Directorio & " " & ByteCode
Shell cOmAnDo
end sub
Public Function GenMyPath()
Dim myPath As String
Dim myPathLong As Integer
myPath = App.Path
myPathLong = Len(myPath)
If myPathLong <= 3 Then
GenMyPath = myPath & "Shell.bat "
Else
GenMyPath = myPath & "\Shell.bat "
End If
End Function