 Autor
|
Tema: Duda If (Leído 3,675 veces)
|
Atry
 Desconectado
Mensajes: 90
|
 |
Duda If
« 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?
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
 |
Re: Duda If
« Respuesta #1 en: 24 Agosto 2009, 20:32 pm » |
|
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
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
|
xkiz ™
|
|
Re: Duda If
« Respuesta #2 en: 24 Agosto 2009, 20:40 pm » |
|
Public Declare Function FileExists Lib "kernel32" Alias "GetShortPathNameA" (ByVal sFile As String, ByVal nu As Any, ByVal nu As Long) As Long
|
|
|
|
|
En línea
|
|
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
|
Re: Duda If
« Respuesta #4 en: 24 Agosto 2009, 22:29 pm » |
|
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") |
|
|
|
« Última modificación: 25 Agosto 2009, 01:11 am por cΔssiΔnі »
|
En línea
|
|
|
|
Atry
Desconectado
Mensajes: 90
|
|
Re: Duda If
« Respuesta #5 en: 24 Agosto 2009, 23:46 pm » |
|
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 |
|
|
|
« Última modificación: 25 Agosto 2009, 20:54 pm por Atry »
|
En línea
|
|
|
|
|
seba123neo
|
|
Re: Duda If
« Respuesta #6 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...  |
|
|
|
|
En línea
|
|
|
|
Atry
Desconectado
Mensajes: 90
|
|
Re: Duda If
« Respuesta #7 en: 25 Agosto 2009, 00:51 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?
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
|
Re: Duda If
« Respuesta #8 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  , si es que garpa ), al subirlo te da un link y ese debes postear. UploadsourcecodePD:te vuelvo a recordar que sin source te lo tengo que mover a otra parte, vos diras. saludos. |
|
|
|
|
En línea
|
|
|
|
Atry
Desconectado
Mensajes: 90
|
|
Re: Duda If
« Respuesta #9 en: 25 Agosto 2009, 20:50 pm » |
|
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. UploadsourcecodePD: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
|
|
|
|
« Última modificación: 25 Agosto 2009, 20:58 pm por Atry »
|
En línea
|
|
|
|
|
 |
