MkDir Statement
একটি ডাটা মাধ্যমে নতুন একটি ডিরেক্টরী তৈরি করা হয়।
সিনট্যাক্স:
MkDir Text As String
প্যারামিটার:
লেখ: যেকোনো স্ট্রিং এক্সপ্রেশন যাতে তৈরি করা হবে এমন ডিরেক্টরির নাম এবং পাথ উল্লেখ থাকে। আপনি URL নোটেশনও ব্যবহার করতে পারেন।
যদি একটি পাথ নির্ধারিত না থাকে তাহলে বর্তমান ডিরেক্টরিতে এই ডিরেক্টরিটি তৈরি হবে।
উদাহরণ:
Sub ExampleFileIO
' ফাইল ব্যবস্থাপনার ফাংশনের উদাহরণ
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,"Create directory"
End If
sFile = sFile + "/" + sFile2
FileCopy sFile1 , sFile
MsgBox fSysURL(CurDir()),0,"Current directory"
MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Creation time"
MsgBox sFile & Chr(13)& FileLen( sFile ),0,"File length"
MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"File attributes"
Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3
' একই ডিরেক্টরীতে পুনরায় নামকরণ করুন
sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3
SetAttr( sFile, 0 ) 'সব বৈশিষ্ট্য মুছে ফেলা হয়
MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"New file attributes"
Kill sFile
RmDir sDir1 + "/" + sSubDir1
End Sub
' 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
' DOS বিশিষ্ট কোলন
iPos = Instr(1,fSysFp,":")
If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")
fSysURL = "file://" & fSysFp
End Function