Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Xephiro en 24 Mayo 2006, 01:19



Título: una pregunta simple ..
Publicado por: Xephiro en 24 Mayo 2006, 01:19
Bueno .. me prgunta es como hacer que un programa, cuando yo le ordene con un boton me verifique si un directorio X existe y me haga una copia del archivo en ese directorio, y si no existe, me cree el directorio y mande la copia del archivo ...  ;D ;D ;D ;D ;D ;D ;D


Título: Re: una pregunta simple ..
Publicado por: <--v1c1ous--> en 25 Mayo 2006, 03:46
Buenas Hacktor

Por lo visto tenes un directorio X con un solo archivo y queres verificar la existencia de los dos, asi que, en vez de verificar la existencia de uno y luego de otro podes hacerlo mas facil, verificar la existencia del archivo contenido dentro de esa carpeta y lo haces de una con una sola funcion y ahorras mas :).

Una funcion muy simpe es esta que justamente aparece en la pagina de ElHacker.net en la sección de trucos para VB :):

Citar
Function file_exist(File As String)
On Error GoTo Error:
x = GetAttr(File)
file_exist = True
Exit Function
Error:
file_exist = False
End Function

Si no existe el archivo simplemente lo creas dentro de la carpeta que quieras y si existe haces lo que gustes :).

Saludos.


Título: Re: una pregunta simple ..
Publicado por: Xephiro en 28 Mayo 2006, 00:03
mm haber ... lo que pasa es que yo uso KILL, Mkdir y Rmdir, lo que pasa que cuando un directorio no esta y quiero borrarlo me cierra todo el programa... lo solucione con el on error resume next... pero quiero que al momento de abrir el programa me diga que el directorio que quiero crear existe... y no me lo cree.. pero no se como hacer de que me reconozca si el directorio esta o no.


Título: Re: una pregunta simple ..
Publicado por: <--v1c1ous--> en 28 Mayo 2006, 02:59
Buenas.

Te gusta lo complicado sin nececidad je, pero Ok.

Citar
Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Citar
Function CarpetaExiste (Nombre As String)
If PathFileExists(Nombre) = 1 then
CarpetaExiste = True
Else
CarpetaExiste = False
End If
End Function

Espero que sea de tu confort.

Saludos.