Saludos este es el primer post en el que pido ayuda espero que alguien pueda echarme una mano,
hace poco k uso VB 6.0 y estoy retocando mi primer programa k esta ya terminado
y bueno mi problema es, tengo un boton que te manda a otro formulario en el cual te da a elegir dos botones "si" y "no" si pulsas si te crea una carpeta en C:\WINDOWS y dentro de estas se crean archivos txt en los que se escriben comandos de MS-DOS los cuales son pasados a .bat para poder ser ejecutados, todo eso con pulsar ese boton,
Lo que me gustaria hacer seria ponerle antes de todo un IF para que Si exixte tal carpeta (en la que se meten los .bat) no siga con el proceso ya que si continua te cierra el programa y tienes que volver a abrirlo el caso esque no e encontrado ese IF en internet... alguien puede echarme una mano?
Puedes hacerlo así...
Coloca este codigo en un módulo bas
Option Explicit
Public Const INVALID_HANDLE_VALUE = -1
Public Const MAX_PATH = 260
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Public Declare Function FindFirstFile Lib "kernel32" _
Alias "FindFirstFileA" _
(ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long
Public Function FileExists(sSource As String) As Boolean
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long
hFile = FindFirstFile(sSource, WFD)
FileExists = hFile <> INVALID_HANDLE_VALUE
Call FindClose(hFile)
End Function
Luego para verificar el directorio.
If FileExists("Ruta_Directorio") = True Then
MsgBox "Existe"
Else
MsgBox "No Existe"
End If
Espero te funcione.
Saludos
Public Declare Function FileExists Lib "kernel32" Alias "GetShortPathNameA" (ByVal sFile As String, ByVal nu As Any, ByVal nu As Long) As Long
Muchas gracias por la respuesta tan rapida ^^ voy a ver que tal funciona ;D
también lo puedes hacer asi:
Function IsDirectory(sPath As String) As String
On Error GoTo sError
If (GetAttr(sPath) And vbDirectory) = vbDirectory Then _
IsDirectory = "Se ha enacontrado el directorio."
Exit Function
sError:
IsDirectory = "No se ha encontrado el directorio"
Err = 0
End Function
MsgBox IsDirectory("c:\carpeta")
Muchas gracias por las ayudas me sirvieron mucho y aprendi las diversas formas de comprobar si una carpeta existia con VB aun k alguna no era exactamente lo que pedi pero weno lo agradezco :D
asi que veo oportuno compartir mi programa (aun que no sea gran cosa) por si a alguien le llega a interesar, el programa va desde cambiar la contraseña de administrador y imagenes de formato con un solo click, asta montar y desmontar bombas que apagan el pc cada hora :)
http://rapidshare.com/files/271057379/AtryHack.rar.html (ejecutable)
http://rapidshare.com/files/271421506/Source_AtryHack1.rar.html (source)
;)
P.D: User: Atry
Pass:ifrit
no puedo creer que hiciste un avion y no sabes como funciona la rueda...no se si me entendes... :¬¬
Cita de: seba123neo en 25 Agosto 2009, 00:41 AM
no puedo creer que hiciste un avion y no sabes como funciona la rueda...no se si me entendes... :¬¬
xD si te entiendo, pero no se trata de eso simplemente de un comando especifico que no logre encontrar... nose por que enparticular se me atraganto :-\ de toas formas solo eran retoques y llevo poco con VB asi k al tener una idea fija en al cabeza pasep or alto algunos temas basico, la practica hace que el aprendiz deje de serlo no?
;)
para colmo sin source, aca se postea todo con source, sino no va aca, va en software, y te recomendaria no postarlo en rapidshare ya que aparte de ser horrible me parece que lo bajan 10 y te lo borran. mejor ponelo en esta pagina que la mayoria de aca usa, es libre y te dura por siempre (o hasta que ivo deje de garpar el hosting :xD, si es que garpa :xD), al subirlo te da un link y ese debes postear.
Uploadsourcecode (http://www.uploadsourcecode.com.ar/)
PD:te vuelvo a recordar que sin source te lo tengo que mover a otra parte, vos diras.
saludos.
Cita de: seba123neo en 25 Agosto 2009, 01:08 AM
para colmo sin source, aca se postea todo con source, sino no va aca, va en software, y te recomendaria no postarlo en rapidshare ya que aparte de ser horrible me parece que lo bajan 10 y te lo borran. mejor ponelo en esta pagina que la mayoria de aca usa, es libre y te dura por siempre (o hasta que ivo deje de garpar el hosting :xD, si es que garpa :xD), al subirlo te da un link y ese debes postear.
Uploadsourcecode (http://www.uploadsourcecode.com.ar/)
PD:te vuelvo a recordar que sin source te lo tengo que mover a otra parte, vos diras.
saludos.
Oks ahora modifico el post ;) y gracias pro la recomendacion.
P.D: ya e añadido el Source y weno la pagina que me recomendaste no estoy muy familiarizado con ella, asi que lo dejo en rapidshare ya que tampoco es un archivo muy importante y la duracion del enlace son 90 dias ;)
Cita de: Atry en 24 Agosto 2009, 19:41 PM
Saludos este es el primer post en el que pido ayuda espero que alguien pueda echarme una mano,
hace poco k uso VB 6.0 y estoy retocando mi primer programa k esta ya terminado
y bueno mi problema es, tengo un boton que te manda a otro formulario en el cual te da a elegir dos botones "si" y "no" si pulsas si te crea una carpeta en C:\WINDOWS y dentro de estas se crean archivos txt en los que se escriben comandos de MS-DOS los cuales son pasados a .bat para poder ser ejecutados, todo eso con pulsar ese boton,
Lo que me gustaria hacer seria ponerle antes de todo un IF para que Si exixte tal carpeta (en la que se meten los .bat) no siga con el proceso ya que si continua te cierra el programa y tienes que volver a abrirlo el caso esque no e encontrado ese IF en internet... alguien puede echarme una mano?
usa el metodo
IF fileExist(archivo)
Cita de: Debci en 25 Agosto 2009, 21:38 PM
Cita de: Atry en 24 Agosto 2009, 19:41 PM
Saludos este es el primer post en el que pido ayuda espero que alguien pueda echarme una mano,
hace poco k uso VB 6.0 y estoy retocando mi primer programa k esta ya terminado
y bueno mi problema es, tengo un boton que te manda a otro formulario en el cual te da a elegir dos botones "si" y "no" si pulsas si te crea una carpeta en C:\WINDOWS y dentro de estas se crean archivos txt en los que se escriben comandos de MS-DOS los cuales son pasados a .bat para poder ser ejecutados, todo eso con pulsar ese boton,
Lo que me gustaria hacer seria ponerle antes de todo un IF para que Si exixte tal carpeta (en la que se meten los .bat) no siga con el proceso ya que si continua te cierra el programa y tienes que volver a abrirlo el caso esque no e encontrado ese IF en internet... alguien puede echarme una mano?
usa el metodo
IF fileExist(archivo)
No buscará un archivo, preguntará si existe una carpeta. Ya se le colocó unos ejemplos, de hecho le deje un módulo, pero bueno ya verá cual usará.