Mensajes

Si datos esta vacio el archivo no existe, me equivoco?

Si, si esta vacío el archivo no existe, ese puede ser un metodo.

nada, ya esta todo aclarado gracias
salu2

¿Por qué no posteas el codigo que te ha servido al final? Así los que tuviesen la misma duda que tu podrán resolverla 

Saludos!!

Creo k la duda esta resuelta 

Bueno prova con el control Inet de esta manera:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
    Dim strHeader As String
   
    Inet1.OpenURL "http://www.google.co.ve/jojojojo.html"
    DoEvents
   
    strHeader = Mid(Split(Inet1.GetHeader, "HTTP/1.1")(1), 2, 3)
   
    If strHeader = "404" Then
        MsgBox "No existe"
    ElseIf strHeader = "200" Then
        MsgBox "Si existe"
    End If
End Sub



Pues si URLDownloadToFile no te retorna 0 esk no existe, mira ve este ejemplo

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
    If Descargar("http://localhost/index.php", "C:\hola.php") = True Then
        MsgBox "Se descargo"
    Else
        MsgBox "el archivo no se encunetra"
    End If
End Sub

Private Function Descargar(URL, Destino) As Boolean
    Dim lRet As Long
   
    lRet = URLDownloadToFile(0, URL, Destino, 0, 0)
   
    If lRet = 0 Then
        Descargar = True
    Else
        Descargar = False
    End If
End Function



sisi exelente pero te bajas el discovery y listo :S

y no sirve para otra cosa que molestar al contacto

si si.... pero aqui lo importante NO es si fastidias o no sino COMO FUNCIONA! .. no crees?..

aver contacta al que lo programo y preguntale xD, creo k ese tipo de cosas no se pueden hacer en el VB6

Dios, no me hables de API que me pone de mal humor.

wtf!??????

Ya que estamos, el CSocket Master no utiliza la ocx? No estaba enterado, soy un gil.

jaja ese es el fin de usar el CSocket Master no usar el OCX.

Hola, COPIA y PEGA este codigo y agrega 3 CommandButton

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub

Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
    Command1.Enabled = False
Else
    Command1.Enabled = True
End If
End Sub



Ya lo probe y funciona perfecto.

siiiiiiiiiiiii aora necesito k se kede asin osea k se guarde conforme esta y cuando se ejecute el programa o lo k vaya acer siga asin saves como?

escribe bien... no te entiendo que quieres hacer.

Hola... algo asi?

Código [Seleccionar] Expandir


private sub Command2_click()
command1.enabled = false
end sub