Instruction MkDir

MkDir Statement diagram

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

Syntaxe :


MkDir path

Paramètres :

path: Any string expression that specifies the name and path of the directory to be created. You can also use URL notation.

Si le chemin n'est pas déterminé, le répertoire est créé dans le répertoire actif.

Codes d'erreur :

5 appel de procédure incorrect

76 chemin non trouvé

Exemple :


Sub ExampleFileIO
' Exemple pour les fonctions d'organisation des fichiers
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 ' Le répertoire existe-t-il ?
        MkDir sSubDir1
        MsgBox sFile,0,"Créer un répertoire"
    End If
    sFile = sFile + "/" + sFile2
    FileCopy sFile1 , sFile
    MsgBox fSysURL(CurDir()),0,"Répertoire actif"
    MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Date et heure de création"
    MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Longueur du fichier"
    MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Attributs de fichier"
    Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
    ' Renommer dans le même répertoire
    sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
    SetAttr( sFile, 0 ) 'Supprimer tous les attributs
    MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Nouveaux attributs de fichier"
    Kill sFile
    RmDir sDir1 + "/" + sSubDir1
End Sub
 
' Convertit un chemin système 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
    ' Signe deux-points sous DOS
    iPos = Instr(1,fSysFp,":")
    If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
    fSysURL = "file://" & fSysFp
End Function