les dejo parte del code:
CommonDialog = CD
Código:
If WS.State = 7 Then
CD.ShowOpen
RutArchivo = CD.FileName
Open RutArchivo For Binary As #1
EnvArchivo = Input(LOF(1), 1)
Close #1
EnvTam = Len(EnvArchivo)
WS.SendData "Archivo|" & RutArchivo & "|" & EnvTam
Form1.Caption = "Share - Esperando que acepte el archivo"
Color (3)
Exit Sub
End If
CD.ShowOpen
RutArchivo = CD.FileName
Open RutArchivo For Binary As #1
EnvArchivo = Input(LOF(1), 1)
Close #1
EnvTam = Len(EnvArchivo)
WS.SendData "Archivo|" & RutArchivo & "|" & EnvTam
Form1.Caption = "Share - Esperando que acepte el archivo"
Color (3)
Exit Sub
End If
probe con CD.CancelError = true , desp con False y no se q mas hacer... probe con If etc... en google hay un ejemplo pero con el show font, y no lo termine de entender... si alguno me dice como hacer se lo agraderia