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!