Crear Carpetas/directorio En Vb

[Stefanie]

Hola foreros! quisiera saber como podria hacer para crear carpetas dentro de mi codigo, miren estoy guardando algunos datos d un cliente en un archivo .txt c/u con el nombre del id del cliente es decir id.text, ahora lo que deseo es que antes de guardar estos archivos se cree (si no existe) una carpeta CLIENTES y asi mismo dentro d esta se cree(si no existe) una carpeta con nombre del mes en curso y que se le concatene al año es decir tener carpetas que digan por ejemplo DICIEMBRE2006, ENERO2007, ENERO2008, no se si me deje entender ojala me puedan dar una ayudadita con esto jiji :D como siempre me dan GRACIAS! ANTICIPADAS

[tazzito]

haber señorita :$

para crear directorios primero como usuario debes tener los permisos en la maquina en la que crearas el directorio, deberas comprobar si existe o no el directorio, despues si no existe crearlo, para esto usas la funcion de VB MKDir (buscala en la ayuda... pero es simplisima) en cuanto al nombre del directorio la mejor forma es tener un array con los meses, luego sacar el month de la fecha y el año veamos un poco como

dim arrMeses (1 to 12) as string
arrMeses(1)="Enero"
...
arrMeses(12) = "Diciembre"

Directorio = rutaInicial & "\" & ArrMeses(month(date)) & trim(year(date)) & "\"

Archivo = Directorio & "IdCliente" & ".txt"

call CompruebaDirectorio(Directorio)
bla bla bla tu demas codigo

OJO esta es la forma mas simple
sub CompruebaDirectorio(pasoDirectorio as string)
on error goto resume next
posSeparador = instr(1,pasoDirectorio,"\")
do while posSeparador > 0
miDirectory = mid(pasoDirectorio, 1, posSeparador)
mkdir(miDirectory)
posSeparador = instr(posSeparador,pasoDirectorio,"\")
loop
end Sub

yap eso lo hice de memoria y a la rapida pero es mas o menos la idea

[Stefanie]

:O gracias a ver probare .... :P esa es la forma mas facil entonces?

[tazzito]

jajaja sip espero que no se te complique xD

[Stefanie]

Si chvre todo funciono :P ok .. hice unos pekeños cmabios para acomodarlo a mi aplicacion pero todo ok :) gracias