Duda If

[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?

[ssccaann43 ©]

Puedes hacerlo así...

Coloca este codigo en un módulo bas

Código (vb) [Seleccionar] Expandir


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] Expandir


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


Espero te funcione.

Saludos

[xkiz ™]

Código (vb) [Seleccionar] Expandir

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

[cassiani]

también lo puedes hacer asi:

Código [Seleccionar] Expandir

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]

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  

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

[seba123neo]

no puedo creer que hiciste un avion y no sabes como funciona la rueda...no se si me entendes...

[Atry]

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?

[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  , si es que garpa  ), 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.

[Atry]

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  , si es que garpa  ), 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