Crear Carpetas/directorio En Vb

[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