IBM Lotus Symphony


Instruction MkDir [Exécution]

Crée un nouveau répertoire sur un support de données.

Syntaxe :

MkDir Text As String

Paramètres :

Text : expression de type chaîne de caractères qui indique le nom et le chemin d'accès du répertoire à créer. Vous pouvez également utiliser la notation URL.

Si le chemin d'accès n'est pas déterminé, le répertoire est créé dans le répertoire en cours.

Codes d'erreur

5 Appel de procédure incorrect

76 Chemin introuvable

Exemple :

Sub ExampleFileIO

' Example for functions of the file organization

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 ' Does the directory exist ?

MkDir sSubDir1

MsgBox sFile,0,"Créer un répertoire"

End If

sFile = sFile + "/" + sFile2

FileCopy sFile1 , sFile

MsgBox fSysURL(CurDir()),0,"Répertoire en cours"

MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Heure de création"

MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Longueur du fichier"

MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Attributs du fichier"

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

' Rename in the same directory

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

SetAttr( sFile, 0 ) 'Delete all attributes

MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Nouveaux attributs de fichier"

Kill sFile

RmDir sDir1 + "/" + sSubDir1

end sub

' Converts a system path in 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

' the colon with DOS

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

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

fSysURL = "file://" & fSysFp

End Function


Commentaires en retour sur le produit | Documentation complémentaire | Marques