IBM Lotus Symphony
|
Crea un directorio nuevo en un medio de datos.
MkDir Text As String
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.
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