Visual Basic - crear carpeta

Life is soft - evento anual de software empresarial
   
Vista:

crear carpeta

Publicado por ALEX PRINCIPIANTE (3 intervenciones) el 25/01/2008 02:08:49
hola de new yo por aqui dicen q el q no pregunta, cacharrea e investiga no aprende naaa
bueno esta vez traigo una cosa que debe de ser muy facil para ustedes ps tienen mas experiencias y toda la vaina ...........la cosa es:......:crear una carpeta local es decir una carpeta dentro del programa que no se pueda ver en la cual se va a depositar y guardar una informacion la cual se puede buscar dando click en boton .....vamos muchachos yo me se un metodo pero no es el mas apropiado delen colaborenme ahi....con lo que mas pueda

tamos en contacto ya me estoy metiendo en el cuento
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:crear carpeta

Publicado por A.H.H (28 intervenciones) el 26/01/2008 15:45:30
Hola el siguiente codigo lo que hace es lo siguiente,crea una carpeta llamada prueba en el directorio local,(si lo corres desde visual basic sera este por defecto claro), esta carpeta la pone oculta y un archivo de texto dentro de esa carpeta.

Dibuja un boton en el form .
al darle al boton se explora la carpeta prueba(se abre).

coloca el siguiente codigo en un form:

Private Sub Command1_Click()
Shell ("Explorer prueba"), vbMaximizedFocus
End Sub
Private Sub Form_Load()
'al correr el programa llamamos a la sub crearcarpetaoculta'
crearcarpetaoculta
End Sub
Sub crearcarpetaoculta()
'verificamos si la carpeta prueba existe,tanto oculta como no'
If Dir(App.Path & "prueba", vbDirectory + vbHidden) = "" Then
'si no existe,la creamos y la ponemos oculta'
'tambien ingresamos un archivo texto dentro'
MkDir (App.Path & "prueba")
SetAttr (App.Path & "prueba"), vbHidden
Open (App.Path & "pruebainformacion.txt") For Output As #1
Print #1, "la informacion que quieras"
Close #1
Else
'si existe,mostramos mensaje que existe.'
'y salimos del sub'
MsgBox "LA CARPETA YA EXISTE", vbInformation
Exit Sub
End If
End Sub


'-------------------------------------------------------------------------------------------------'
SALU2 ESPERO TE SIRVA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:crear carpeta

Publicado por A.H.H (28 intervenciones) el 26/01/2008 18:32:13
Hola de nuevo perdona el codigo para el boton command1 es esl siguiente:

Private Sub Command1_Click()
Shell ("explorer ") & App.Path + "prueba", vbMaximizedFocus
End sub

el codigo anterior del boton que te di dara error lo demas funciona bien..

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar