Duda If

Iniciado por Atry, 24 Agosto 2009, 19:41 PM

0 Miembros y 1 Visitante están viendo este tema.

Atry

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?




Le parkour!
mI video! ---> http://www.youtube.com/watch?v=nT9A8L4eK9M
Espero k os guste ;D

ssccaann43 ©

Puedes hacerlo así...

Coloca este codigo en un módulo bas
Código (vb) [Seleccionar]

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.

Código (vb) [Seleccionar]

If FileExists("Ruta_Directorio") = True Then
    MsgBox "Existe"
Else
    MsgBox "No Existe"
End If


Espero te funcione.

Saludos
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"

xkiz ™

Código (vb) [Seleccionar]
Public Declare Function FileExists Lib "kernel32" Alias "GetShortPathNameA" (ByVal sFile As String, ByVal nu As Any, ByVal nu As Long) As Long

Atry

Muchas gracias por la respuesta tan rapida ^^ voy a ver que tal funciona ;D


Le parkour!
mI video! ---> http://www.youtube.com/watch?v=nT9A8L4eK9M
Espero k os guste ;D

cassiani

#4
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")

Atry

#5
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


Le parkour!
mI video! ---> http://www.youtube.com/watch?v=nT9A8L4eK9M
Espero k os guste ;D

seba123neo

no puedo creer que hiciste un avion y no sabes como funciona la rueda...no se si me entendes... :¬¬
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Atry

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?

;)


Le parkour!
mI video! ---> http://www.youtube.com/watch?v=nT9A8L4eK9M
Espero k os guste ;D

seba123neo

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

PD:te vuelvo a recordar que sin source te lo tengo que mover a otra parte, vos diras.

saludos.

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Atry

#9
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


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  ;)


Le parkour!
mI video! ---> http://www.youtube.com/watch?v=nT9A8L4eK9M
Espero k os guste ;D