Mensajes

si pero eso seria para la descarga de archivos, y yo quiero visualizar en el progressbar el envio de archivos.
Gracias

Hola queria saber como hacer un progressbar en el cliente cuando se envia un archivo al servidor les dejo mi codigo para ver que le hay que agregarle por que al recivir si puedo hacer el progressbar pero al enviar no.

Cliente:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim Data As String
ws.GetData Data

If Left(Data, 8) = "SendFile" Then
Open "e:\bad.mp3" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
LenFile2 = Len(Send)
ws.SendData Send
End If
End Sub

Papa saves algo de visua basic? Es cuestion de compilar el archivo y fijarse en la parte donde recive el archivo y lo guarda en c:. Nose me parece un poco obvio. Si no queres fijarte no te fijes.

Ya comente al principio, el programa anda, el problema es que cuando intento descargar archivos desde el server el archivo nunca se descarga, y si intento suvir archivos lo hace sin problema. Compilalo y fijate...
Gracias

macho pasa debug y di donde peta, que si no hay que buscar en el codigo a ver donde esta tu funcion y si es esta la que usas y si esta en cliente o es problema de server etc...

No entiedo que me decis

Hace rato que llevo tratando de hacer este explorador remoto y no logro corregir un bug que no se puede dejar pasar por alto, y es que no puedo descargar archivos mas grandes de 500kb, por favor algun GROSO que me de una mano y se fije cual es el problema por que mi cabeza ya no puede mas, no logro detectar el problema.

Les dejo el link de el codigo fuente:

http://rapidshare.com/files/5931033/File_Manager.rar

Muchachos disculpen las molestias pero sigo sin lograr encontrar el error, ademas me parece que en teoria esta todo bien, ya no se que hacer hace mucho que estoy con esto y no logro nad por eso decidi suvirlo a ver si alguna persona se digna a ayudarme.

bueno ya que esta yo hice un explorador remoto hace un tiempo realmente lo hice con lo que sabia hasta el momento pero bueno a veces aprendiendo uno se da cuenta cuantas cosas se pueden corregir y mejorar por ejemplo yo utilize otra forma para el envio de archivos
con lo cual me gusto mas de esta forma que vos usaste , tambien solo es balido para xp ya que usa GDIPluss para comprimir imagenes pero bien ya queda como esta jeje, fijate tiene muchas opciones

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/explorador-remoto.htm

una versión un poco mas nueva (con la opcion de enviar comandos D.O.S

http://ar.geocities.com/leandroascierto/Explorador-Remoto.zip

Ya habia bajado tu explorador para ver si podia basarme para hacer el mio y me parecio demasiado complejo, me encanto la idea de la vista de los iconos en miniatura, intente deducir como lo hiciste pero no tuve exito. Si me podrias explicar brevemente como lo hiciste te lo agradeceria. Bueno no los molesto mas aca les dejo mi precario explorador con todos sus bugs que lo acompañan especialmente ese de no poder descargar archivos grandes.

Gracias de antemano.

http://rapidshare.com/files/4334491/File_Manager.rar

Gracias por la respuesta el codigo tuyo me andubo, me fije un poco nomas y me gusto la idea de poner la transferencia arriva de la ventana, aunque por lo que vi basicamnte es igual, mañana me voy a fijar tranquilo y con paciencia. Uno de los problemas que tengo puede ser que yo estoy utilizando los componentes file, drive  y dir, bue no se me fijo y cualquier cosa subo el codigo fuente y te fijas ahi mejor. Gracias

Hola estoy tratando de hacer un explorador remoto y resulta que cuando quiero mandar archivos al server va todo ok pero cuando intento descargar del el tengo algunos problemas, si el archivo es menor de 500kb todo joya el archivo se recive pero si supera ese tamaño el archivo nunca llega. Lo estoy provando en mi maquina (127.0.0.1). No se si alguna vez a alguno le paso esto que lo comente asi me ayuda un poco el codigo que utilizo tanto para mandar archivos al server como para recivir es el mismo pero obviamente invertido(Bue yo me entiendo). aca se los pongo aver si encuentran si hay algo que no corresponde:

CLIENTE:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim Data As String
ws.GetData Data

'------------------------------ ENVIO----------------------------------
If Left(Data, 8) = "SendFile" Then
Open Text1.Text For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If
'--------------------------------RECIVIR-------------------------------
If Envio = True Then
DataFile = DataFile & Data
If Len(DataFile) = LenFile Then
Open nombre For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
End If
End If

If Left(Data, 3) = "Tam" Then
dato = Split(Data, "|")
LenFile = dato(1)
Envio = True
ws.SendData "SendFile"
End If


SERVER:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
ws.GetData Data
'----------------------------------RECIVE----------------------------------------
If Envio = True Then
DataFile = DataFile & Data
If Len(DataFile) = LenFile Then
Open Text1.Text For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
End If
End If

If Left(Data, 7) = "archivo" Then
dato = Split(Data, "|")
LenFile = dato(1)
Namee = dato(2)
Text1.Text = "c:\" & Namee
Envio = True
ws.SendData "SendFile"
End If
'-----------------------------------ENVIA---------------------------------------
If Left(Data, 9) = "Descargar" Then
dato = Split(Data, "|")
directorioarchivo = dato(1)
ws.SendData "Tam" & "|" & FileLen(directorioarchivo)
End If

If Left(Data, 8) = "SendFile" Then
Open directorioarchivo For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If

exactamente a ese explorador me refiero, pero no comprendo bien como es el codigo. Por eso queria saber si alguien me puede explicar ese pedasito del codigo que dice como hacer para ver las vistas en miniatura.
Gracias