IBM Lotus Symphony


Instrução MkDir [Tempo de Execução]

Cria um novo diretório em uma mídia de dados.

Sintaxe:

MkDir Text As String

Parâmetros:

Text: Qualquer expressão de sequência que especifique o nome e caminho do diretório a ser criado. Também é possível usar a notação URL.

Se o caminho não for determinado, o diretório será criado no diretório atual.

Códigos de Erro

5 Chamada de procedimento inválida

76 Caminho não localizado

Exemplo:

Sub ExampleFileIO

' Exemplo para funções da organização do arquivo

Const sFile1 as String = "file://c|/autoexec.bat"

Const sDir1 as String = "file://c|/Temp"

Const sSubDir1 as String ="Test"

Const sFile2 as String = "Copied.tmp"

Const sFile3 as String = "Renamed.tmp"

Dim sFile as String

sFile = sDir1 + "/" + sSubDir1

ChDir( sDir1 )

If Dir(sSubDir1,16)="" then ' O diretório existe?

MkDir sSubDir1

MsgBox sFile,0,"Criar diretório"

End If

sFile = sFile + "/" + sFile2

FileCopy sFile1 , sFile

MsgBox fSysURL(CurDir()),0,"Diretório atual"

MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Hora de criação"

MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Comprimento do arquivo"

MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Atributos de arquivo"

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

' Renomear no mesmo diretório

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

SetAttr( sFile, 0 ) 'Excluir todos os atributos

MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Novos atributos de arquivo"

Kill sFile

RmDir sDir1 + "/" + sSubDir1

end sub

' Converte um caminho do sistema em 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

' os dois pontos com DOS

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

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

fSysURL = "file://" & fSysFp

End Function


Feedback do Produto | Documentação Adicional | Marcas Registradas