Instrucción MkDir

MkDir Statement diagram

Crea una carpeta nueva en un soporte de datos.

Sintaxis:


MkDir path

Parámetros:

ruta: cualquier expresión de cadena que especifique el nombre y la ruta del directorio que se desea crear. También se puede usar la notación URL.

Si la ruta de acceso no se determina, se crea el directorio en el directorio actual.

Códigos de error:

5 Llamada a procedimiento no válida

76 Ruta no encontrada

Ejemplo:


Sub ExampleFileIO
' Ejemplo de funciones de organización de archivos
Const sFile1 As String = "file://c|/autoexec.bat"
Const sDir1 As String = "file://c|/Temp"
Const sSubDir1 As String ="Prueba"
Const sFile2 As String = "Copiado.tmp"
Const sFile3 As String = "CambiadoDeNombre.tmp"
Dim sFile As String
    sFile = sDir1 + "/" + sSubDir1
    ChDir( sDir1 )
    If Dir(sSubDir1,16)="" Then ' ¿Existe el directorio?
        MkDir sSubDir1
        MsgBox sArchivo,0,"Crear directorio"
    End If
    sFile = sFile + "/" + sFile2
    FileCopy sFile1 , sFile
    MsgBox fSysURL(CurDir()),0,"Directorio actual"
    MsgBox sArchivo & Chr(13) & FileDateTime( sArchivo ),0,"Fecha de creación"
    MsgBox  sArchivo & Chr(13)& FileLen( sArchivo ),0,"Tamaño del archivo"
    MsgBox  sArchivo & Chr(13)& GetAttr( sArchivo ),0,"Atributos del archivo"
    Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
    ' Cambiar el nombre en el mismo directorio
    sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
    SetAttr( sArchivo, 0 ) 'Eliminar todos los atributos
    MsgBox sArchivo & Chr(13) & GetAttr( sArchivo ),0,"Atributos del archivo nuevo"
    Kill sFile
    RmDir sDir1 + "/" + sSubDir1
End Sub
 
' Convierte una ruta del sistema en un URL
Function fSysURL( fSysFp As String ) As String
Dim iPos As String
    iPos = 1
    iPos = Instr(iPos,fSysFp, getPathSeparator())
    Do While iPos > 0
        Mid( fSysFp, iPos , 1,"/")
        iPos = Instr(iPos+1,fSysFp, getPathSeparator())
    Loop
    ' los dos puntos con DOS
    iPos = Instr(1,fSysFp,":")
    If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
    fSysURL = "file://" & fSysFp
End Function

¡Necesitamos su ayuda!