IBM Lotus Symphony


Instrucción MkDir [Ejecución]

Crea un directorio nuevo en un medio de datos.

Sintaxis:

MkDir Text As String

Parámetros:

Texto: cualquier expresión de cadena que especifique el nombre y la vía de acceso del directorio que se debe crear. También puede utilizar la notación de URL.

Si no se determina la vía de acceso, el directorio se crea en el directorio actual.

Códigos de error

5 Inicio del proceso no válido

76 No se encontró la vía de acceso

Ejemplo:

Sub ExampleFileIO

' Ejemplo de funciones de la 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 = "Renombrado.tmp"

Dim sFile as String

sFile = sDir1 + "/" + sSubDir1

ChDir( sDir1 )

If Dir(sSubDir1,16)="" then ' ¿Existe el directorio?

MkDir sSubDir1

MsgBox sFile,0,"Crear directorio"

End If

sFile = sFile + "/" + sFile2

FileCopy sFile1 , sFile

MsgBox fSysURL(CurDir()),0,"Directorio actual"

MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Fecha de creación"

MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Longitud del archivo"

MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Atributos del archivo"

Name sFile as sDir1 + "/" + sSubDir1 + "/" + sFile3

' Renombrar en el mismo directorio

sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3

SetAttr( sFile, 0 ) 'Suprimir todos los atributos

MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Atributos del archivo nuevo"

Kill sFile

RmDir sDir1 + "/" + sSubDir1

end sub

' Convierte una vía de acceso del sistema en 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

' dos puntos con DOS

iPos = Instr(1,fSysFp,":")

if iPos > 0 then mid( fSysFp, iPos , 1,"|")

fSysURL = "file://" & fSysFp

End Function


Comentarios del producto | Documentación adicional | Marcas registradas