Crear Carpetas y subcarpetas
Publicado por Elkin (6 intervenciones) el 09/04/2019 17:04:01
Buenas a todos, soy un poco nuevo en Access
quien me podria ayuda con el siguiente tema, tengo una carpeta principal en la unidad D: que se llama LBerlin, y quiero que al momento de abrir la aplicación detecte si estan credas unas carpetas de la siguiente forma
D:\LBerlin\Tablas
D:\LBerlin\Tablas\Ano\2019
D:\LBerlin\Tablas\Ano\2019\mes01
D:\LBerlin\Tablas\Ano\2019\mes02...... mes12
Si no estan creadas como hago para crearlas, cuando llegue el siguiente Año(2020) cree las carpetas correspondientes
D:\LBerlin\Tablas\Ano\2020
D:\LBerlin\Tablas\Ano\2020\mes01
D:\LBerlin\Tablas\Ano\2020\mes02...... mes12
Tengo este codigo pero no me crea la carpeta mes01....mes12 dentro de la carpeta Ano\2019...
quien me podria ayuda con el siguiente tema, tengo una carpeta principal en la unidad D: que se llama LBerlin, y quiero que al momento de abrir la aplicación detecte si estan credas unas carpetas de la siguiente forma
D:\LBerlin\Tablas
D:\LBerlin\Tablas\Ano\2019
D:\LBerlin\Tablas\Ano\2019\mes01
D:\LBerlin\Tablas\Ano\2019\mes02...... mes12
Si no estan creadas como hago para crearlas, cuando llegue el siguiente Año(2020) cree las carpetas correspondientes
D:\LBerlin\Tablas\Ano\2020
D:\LBerlin\Tablas\Ano\2020\mes01
D:\LBerlin\Tablas\Ano\2020\mes02...... mes12
Tengo este codigo pero no me crea la carpeta mes01....mes12 dentro de la carpeta Ano\2019...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim strTempCarpeta As String
Dim strNombreMes, strNombreAno As String
strNombreMes = Format(Date, "MM")
strNombreAno = Format(Date, "YYYY")
If Len(Dir("D:\LBerlin\Tablas\Ano", vbDirectory)) = 0 Then
MkDir "D:\LBerlin\Tablas\Ano"
MkDir "D:\LBerlin\Tablas\Ano\" & strNombreAno
MkDir "D:\LBerlin\Tablas\Ano\" & "mes" & strNombreMes
Else
MsgBox "Existe"
End If
End Sub
Valora esta pregunta


0