MkDir Statement
Membuat direktori baru pada media data.
Sintaksis:
MkDir Teks As String
Parameter:
Text: Any string expression that specifies the name and path of the directory to be created. You can also use URL notation.
If the path is not determined, the directory is created in the current directory.
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
' Rename in the same directory
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
' 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