una pregunta simple ..

[Xephiro]

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 ... 

[<--v1c1ous-->]

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 :

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.

[Xephiro]

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.

[<--v1c1ous-->]

Buenas.

Te gusta lo complicado sin nececidad je, pero Ok.

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

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.