Haber, lo que necesito es que por ejemplo ponga la url c:\windows\system32\hal.dll si existe que haga una funcion y si no existe que haga otra acción.
Se que es con el if y todo eso, pero todo así no se como seria.
Gracias por adelantado.
El google no muerde tio.... ;) ;)
Public Function FileExist(asPath As String) As Boolean
'
'Checks for an existing File,
'returns True or False
'examples:
'If FindFile(Text1.Text) Then Label1 = "YES"
'If Not FindFile(Text1.Text) Then Label1 = "NO"
If UCase(Dir(asPath)) = UCase(TrimPath(asPath)) Then
FileExist = True
Else
FileExist = False
End If
End Function
Perdona pero iniciado y aun no controlo muy bien las "Public Funcion..."
Haber si tengo un botol un label y un text y al darle al boton me mira la URL del text y me dice yes o no el label.
Me podrias ayudar.
PD: Que usastes para encontralo en google ¿?
Cita de: dimitrix1 en 18 Julio 2007, 21:57 PM
Perdona pero iniciado y aun no controlo muy bien las "Public Funcion..."
Haber si tengo un botol un label y un text y al darle al boton me mira la URL del text y me dice yes o no el label.
Me podrias ayudar.
PD: Que usastes para encontralo en google ¿?
te pones aprogramar segun tu cosas mas avanzadas y no puede usar nisiquiera un codigo echo
A ver man, es una funcion, es de lo mas basico del VB. Deberias googlear antes en busca de un buen manual basico antes de ponerte con eso...
Te explico un poco. Tu la llamas asi: FileExist(La ruta del archivo q kieras) y te devolvera true si existe y false si no.
Compruevalo con un msgbox: msgbox FileExist(La ruta del archivo q kieras)
Public Function FileExist(asPath As String) As Boolean
'
'Checks for an existing File,
'returns True or False
'examples:
'If FindFile(Text1.Text) Then Label1 = "YES"
'If Not FindFile(Text1.Text) Then Label1 = "NO"
If UCase(Dir(asPath)) = UCase(TrimPath(asPath)) Then
FileExist = True
Else
FileExist = False
End If
End Function
Private Sub Command1_Click()
msgbox FileExist(c:\a.txt)
End Sub
y me da problemas en el msgbox
prueba asi:
msgbox FileExist("c:\a.txt")
PD: leete un manual tio... :)
Hola yo utilizo esta funcion , no es de lo mas elegante ya que utiliza on error, pero la que puso Hendrix, tiene un problema , es que si el archivo tiene propiedades ocultas o mejor dicho no normal, este te informara que no existe.
Public Function FileExist(File As String) As Boolean
On Error GoTo Fallo
Dim ret As Long
ret = GetAttr(File)
FileExist = True
Exit Function
Fallo:
End Function
Private Sub Command1_Click()
MsgBox FileExist("C:\archivo.txt")
End Sub
Saludos
Una mas simple y "elegante" xDD
If Dir("C:\archivo.txt") <> "" Then
MsgBox "El archivo existe."
Else
MsgBox "El archivo no existe."
End If
Cita de: ActiveSheet en 19 Julio 2007, 05:58 AM
que desepcion crei q dimitrix era de los chingones,
ya vi que postear mucho no significa nada,
oiste eso -Freeze-
Sin comentario...
Gracias a todos, usare el de EON.
Si EON te modifica los mensajes sus motivos tendra.
hola
Private Sub Form_Load()
On Error GoTo elhackernet
x = GetAttr("C:\archivo.exe")
MsgBox "El fichero existe."
Exit Sub
elhackernet:
MsgBox "El fichero no existe."
End Sub
Saludos...
hum ok
E0N no a borrado nada, y si sigues protestando a los usuarios y posteando posts basura (disputas) te baneare.... >:( >:(
Cita de: Hendrix. en 21 Julio 2007, 00:37 AM
E0N no a borrado nada, y si sigues protestando a los usuarios y posteando posts basura (disputas) te baneare.... >:( >:(
Es cierto, yo me quede pensando que habia hecho EON
a me modifico un post, nada importante dimitrix1
Hola...
Yo pensaba que dimitrix era un genio de la Programación VB..
ya comprobaste que no pero es buena onda
jejej si...
Pero pense q su lenguaje predilecto era el VB...
y no? aver dimitrix dinos cual es