Isi

# Pernyataan MkDir

Membuat direktori baru pada media data.

### Sintaksis:

    MkDir path

### Parameter:

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

Jika jalur tidak ditentukan, direktori dibuat di direktori saat ini.

### Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

76 Jalur tidak ketemu

### Contoh:

    Sub ExampleFileIO
    ' Contoh bagi fungsi-fungsi untuk mengorganisasikan berkas
    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 ' Apakah direktorinya ada ?
            MkDir sSubDir1
            MsgBox sFile,0,"Membuat direktori"
        End If
        sFile = sFile + "/" + sFile2
        FileCopy sFile1 , sFile
        MsgBox fSysURL(CurDir()),0,"Direktori saat ini"
        MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Waktu pembuatan"
        MsgBox sFile & Chr(13)& FileLen( sFile ),0,"Panjang berkas"
        MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"Atribut berkas"
        Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
        ' Ganti nama di direktori yang sama
        sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
        SetAttr( sFile, 0 ) 'Menghapus semua atribut
        MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"Atribut berkas yang baru"
        Kill sFile
        RmDir sDir1 + "/" + sSubDir1
    End Sub

    ' Mengubah jalur sistem di 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
        'titik dua dengan DOS
        iPos = Instr(1,fSysFp,":")
        If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
        fSysURL = "file://" & fSysFp
    End Function