 Autor
|
Tema: Verificar directorio de un archivo (Leído 6,809 veces)
|
|
dimitrix
|
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.
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
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
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
|
dimitrix
|
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 ¿?
|
|
|
|
|
En línea
|
|
|
|
Red Mx
Rojito
Colaborador
 Desconectado
Mensajes: 3.649
Viva México Cabrones...
|
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
|
|
|
|
« Última modificación: 18 Julio 2007, 22:19 pm por Red Mx »
|
En línea
|
Desarrollar Malware Es Causa De Cancer...
|
|
|
|
~~
|
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)
|
|
|
|
|
En línea
|
|
|
|
|
dimitrix
|
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
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
prueba asi: msgbox FileExist("c:\a.txt")
PD: leete un manual tio...  |
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
|
LeandroA
|
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 |
|
|
|
|
En línea
|
|
|
|
|
~~
|
Una mas simple y "elegante" xDD If Dir("C:\archivo.txt") <> "" Then MsgBox "El archivo existe." Else MsgBox "El archivo no existe." End If
|
|
|
|
|
En línea
|
|
|
|
|
dimitrix
|
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.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Que pasos hacen para verificar si un archivo esta infectado o no?
Seguridad
|
$Edu$
|
1
|
2,744
|
31 Julio 2011, 01:18 am
por lipman
|
|
|
|
Guardar archivo en directorio
PHP
|
overxfl0w13
|
9
|
7,474
|
4 Junio 2012, 15:57 pm
por WHK
|
|
|
|
No existe el archivo o el directorio
« 1 2 »
GNU/Linux
|
eleon
|
11
|
15,305
|
30 Octubre 2012, 23:15 pm
por noponer
|
|
|
|
verificar existencia de un archivo dentro de un ftp
Programación Visual Basic
|
asdexiva
|
2
|
4,201
|
23 Octubre 2013, 16:03 pm
por asdexiva
|
|
|
|
Verificar la Existencia de un archivo en 4gl
Programación General
|
ckrings
|
1
|
2,503
|
26 Octubre 2018, 23:33 pm
por Shell Root
|
 |
