Instrucción MkDir

Crea una carpeta nueva en un soporte de datos.

Sintaxis:

MkDir Texto As String

Parámetros:

Texto: Cualquier expresión de cadena que especifique el nombre y 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 ) 'Borrar 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