|
Título: una pregunta simple .. Publicado por: Xephiro en 24 Mayo 2006, 01:19 am 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 am 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 am 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 am 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. |