Module
Contents
Index 🔎︎

# MkDir Statement

একটি ডাটা মাধ্যমে নতুন একটি ডিরেক্টরী তৈরি করা হয়।

## সিনট্যাক্স:

    MkDir Text As String

## প্যারামিটার:

লেখ: যেকোনো স্ট্রিং এক্সপ্রেশন যাতে তৈরি করা হবে এমন ডিরেক্টরির নাম এবং পাথ উল্লেখ থাকে। আপনি URL নোটেশনও ব্যবহার করতে পারেন।

যদি একটি পাথ নির্ধারিত না থাকে তাহলে বর্তমান ডিরেক্টরিতে এই ডিরেক্টরিটি তৈরি হবে।

## Error codes:

5 Invalid procedure call

76 Path not found 76 Path not found 76 Path not found

## উদাহরণ:

    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