Ayuda para mi proyecto!!!

[Xannarkand]

Hola soy estudiante de Ing. En Sistemas, tengo un proyecto final en visual basic 6.0, y me esta saliendo muy bien, solo tengo un pequeno detalle, No se como crear una carpeta y un archivo, por ejemplo combo1= "Suerte", necesito que se cree una carpeta y dentro de esa carpeta un archivo con el nombre que exista en el combo1, y asi que se creen varios archivos y carpetas con el valor que tenga combo1, no se si me explico, buenosolo eso me falta, muchas gracias

[NightDark]

Iniciado por Xannarkand

Hola soy estudiante de Ing. En Sistemas, tengo un proyecto final en visual basic 6.0, y me esta saliendo muy bien, solo tengo un pequeno detalle, No se como crear una carpeta y un archivo, por ejemplo combo1= "Suerte", necesito que se cree una carpeta y dentro de esa carpeta un archivo con el nombre que exista en el combo1, y asi que se creen varios archivos y carpetas con el valor que tenga combo1, no se si me explico, buenosolo eso me falta, muchas gracias

Pues a estudiar a estudiar que hay que terminar la carrera (yo ni tengo jaja)
para crear la carpeta puedes declarar la API CreateFolder :) y usarla...
o crear un objeto (CreateObject) y usar FSO (FileSystemObject)
(Dim fso: set fso = createobject("scripting.filesystem.object"))
y usar CreateFolder...

Por lo del archivo tienes los procedimientos de VB.. (que supongo ya debes haber aprendido.)

Código:

Open "xxx fichero" for output as #1
print #1,"contenido"
close #1

o podrías declarar la API que está en la libreria del Kernel32 y usar CreateFile para crear los archivos.

un saludo.

[darkhack]

Para crear la carpeta puedes usar la sentencia "MkDir":

MkDir "ubicacion"
ejemplo:

MkDir "C:\hola"
y pss para crear el archivo puedes ligar a una variable la direccion del archivo.
Salu2