Mensajes

Muchas Gracias a los 2 por responder, estoy contento lo he conseguio

No se nada de Api, pero me ha salido, asi Funciona:

Código [Seleccionar] Expandir

Private Type BrowseInfo
    hWndOwner As Long
    pidlRoot As Long
    sDisplayName As String
    sTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" (bBrowse As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
'Add an editbox to the dialog: SHELL 5.0 or later only!
Private Const BIF_EDITBOX As Long = &H10

'insist on valid result (or CANCEL)
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_USENEWUI As Long = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)




Private Function BrowseForDirectory() As String
Dim browse_info As BrowseInfo
Dim item As Long
Dim dir_name As String
   
   browse_info.hWndOwner = hwnd
   browse_info.pidlRoot = 0
   browse_info.sDisplayName = Space$(260)
   browse_info.sTitle = "Selecionar una Carpeta"
   browse_info.ulFlags = 1 ' devuelve el nombre del directorio.
   browse_info.lpfn = 0
   browse_info.lParam = 0
   browse_info.iImage = 0
   browse_info.ulFlags = BIF_USENEWUI Or BIF_RETURNONLYFSDIRS
   item = SHBrowseForFolder(browse_info)
   If item Then
       dir_name = Space$(260)
       If SHGetPathFromIDList(item, dir_name) Then
           BrowseForDirectory = Left(dir_name, _
               InStr(dir_name, Chr$(0)) - 1)
       Else
           BrowseForDirectory = ""
       End If
   End If
End Function

Private Sub Command3_Click()

sRutaBrowserFolder = BrowseForDirectory

End Sub

Gracias y Saludos

Hola,

Tengo una preguntita sobre directorios, uso SHBrowseForFolder para mostrar un dialogo con los directorios, de donde cojo la ruta y guardo el archivo ahi, todo eso muy bien, pero queria añadirle un boton para crear nueva carpeta

¿Es posible? ¿Como seria?

Gracias 

Código [Seleccionar] Expandir

Private Type BrowseInfo
    hWndOwner As Long
    pidlRoot As Long
    sDisplayName As String
    sTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" (bBrowse As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long

Private Function BrowseForDirectory() As String
Dim browse_info As BrowseInfo
Dim item As Long
Dim dir_name As String
   
   browse_info.hWndOwner = hwnd
   browse_info.pidlRoot = 0
   browse_info.sDisplayName = Space$(260)
   browse_info.sTitle = "Selecionar una Carpeta"
   browse_info.ulFlags = 1 ' devuelve el nombre del directorio.
   browse_info.lpfn = 0
   browse_info.lParam = 0
   browse_info.iImage = 0
   
   item = SHBrowseForFolder(browse_info)
   If item Then
       dir_name = Space$(260)
       If SHGetPathFromIDList(item, dir_name) Then
           BrowseForDirectory = Left(dir_name, _
               InStr(dir_name, Chr$(0)) - 1)
       Else
           BrowseForDirectory = ""
       End If
   End If
End Function

Mucha gracias, ya mide cada seg  aun no me convense demasiado pero esta bastante bien

Me refiero a que sale como la velocidad media, no la puntual, por ejemplo empieza a descargar rapido despues se para, y va bajando muy poquita a poco la velocidad que marca el Label 

Gracias

Lo he conseguio pero no parece muy buen metodo, sale demasiado suavisada, yo quiero algo mas puntual y exacto

¿Alguien sabe? 

Holas

A ver si me podis ayudar 

He conseguido hacer un programa que descargue archivos binarios con winsock y tengo un label con el tamaño descargado en MB que lo cojo de la variable bytesTotal del DataArrival, pero no se como poner la velocidad a la que se esta descargando los archivo

¿Como se conseguiria poner la velocidad de la descarga en un label por ejemplo?

Gracias

Gracias pero al final lo hize con winsock 

A mi interesa una cosa mas de esto, ¿como se envian cookies con Inet?

Lo consigo con

Inet1.Execute , "GET", , "Cookie : yo"

pero no me va bien, me envia 2 veces la cabecera cookies: con contenido del IE supongo y la mia cookie : con lo mio

Inet1.Execute , "GET", , "Cookie: yo"

asi no se envia mi cookie solo la de IE

Y esto mismo pasa con los webbrowser

Ayuda.. 

Al final buscado por ahi lo hice con esto mucho mas sencillo

Código [Seleccionar] Expandir

WebBrowser1.Navigate "www.noxtrum.com/pin.jpg", , , , "Cookie : JSESSIONID=DF89C5D30DEC59CA2437B547DCB9C61E; Path=/"

Una duda; no funciona con "Cookie:" tengo que poner "Cookie :" si no no se envia  la demas cabeceras si funcionan con los : junto a la palabra Ejem. Host:

Gracias
Un saludo Maxnet 

Pd: No tengo instalada la ayuda de VB y que poco hay del tema en internet (o al menos en Español) 

Postheader no lo encuentro ni algo parecido, necesito algo mas especifico que ando 

Gracias