elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Duda al crear una carpeta
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda al crear una carpeta  (Leído 1,294 veces)
Crazy.sx


Desconectado Desconectado

Mensajes: 447



Ver Perfil
Duda al crear una carpeta
« en: 12 Mayo 2008, 07:58 am »

Estoy empezando con VB6 y tengo una duda. Creo una carpeta en, por ejemplo, C:\mi_prueba, yo he usado MKDIR ("C:\mi_prueba") y a continuación en esa carpeta creo un archivo de texto. Hasta ahi todo bien, pero el problema que tengo es que si vuelvo a ejecutar el código me sale un error diciendo:

Run-time error '75'
Path/Files acces error

Sé que es porque ya se ha creado antes una carpeta. Mi pregunta es cómo hago para que diga "si existe esta carpeta entonces ir a...". ¿Se entiende mi duda?

Les dejo la parte del código donded se me plantea esa duda:

Código
  1. Option Explicit
  2. Private Sub Command1_Click()
  3. MkDir ("C:\mi_prueba")
  4. On Error Resume Next
  5. Open ("C:\mi_prueba\mibatch.bat") For Output As #1
  6. Print #1, "@echo off"
  7. Print #1, "msg * """ & "HOLA CHE" & """"""
  8. Close #1
  9. Shell ("C:\mi_prueba\mibatch.bat")
  10. End Sub

Gracias y saludos


En línea

Destruir K. LOL
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Duda al crear una carpeta
« Respuesta #1 en: 12 Mayo 2008, 08:43 am »

Hola,con la funcion Dir() o con api,algo asi:

Con Dir():

Código:
Private Sub Form_Load()
If Dir$("C:\window", vbDirectory) = vbNullString Then
MsgBox "no existe"
Else
MsgBox "existe"
End If
End Sub

Con api:

Código:
Option Explicit
Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
MsgBox CBool(PathIsDirectory("c:\windows"))
End Sub

saludos.



En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Crear carpeta en cliente?
Desarrollo Web
L0Ko 1 2,621 Último mensaje 29 Septiembre 2011, 03:05 am
por Z ZERO
Duda al crear una sub-red
Redes
virtualedu 0 1,701 Último mensaje 13 Febrero 2012, 13:03 pm
por virtualedu
[Duda] Crear un log
Dudas Generales
Hurubnar 0 1,697 Último mensaje 21 Febrero 2012, 12:42 pm
por Hurubnar
Duda al crear ap
Hacking Wireless
v4char 3 2,484 Último mensaje 20 Julio 2015, 12:18 pm
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines