ایجاد دایرکتوری

[m_zargarnia]

با سلام به همگی .
مییخواهم نام شاخه مورد نظرم را در یک textbox بنویسم و شاخه مورد نظر ایجاد شود .

[jannati]

عزیزم .در ابتدا در Refrence گزینه Microsoft scriptin Runtime را فعال کنید.سپس در فرمتان کد زیر را اضافه کنید:

Option Explicit

Dim mfile As New FileSystemObject



Private Sub Command1_Click()

Path = Text1.Text

If mfile.FolderExists(Path) Then

MsgBox ("این شاخه موجود است")

Else

Call mfile.CreateFolder(Path)

End If



End Sub

Path مسیر و نام دایرکتوری است.اگر میخواهید فقط نام دایرکتوری بدهید از قبل مسیر را در یک string ریخته و به Path اضافه کنید.
امیدوارم جوابتان را پیدا کرده باشید
جنتی

[Voldemort]

m_zargarnia عزیز می توانید از تابع API با نام CreateDirectory استفاده کنید. البته برای استفاده از آن بدلیل اینکه این تابع فقط یک دایرکتوری را می تواند بسازد باید نام دایرکتوریها را از سمت چپ به ترتیب جدا کرده و بررسی کنید که آیا وجود دارند و یا باید ساخته شوند. به هرحال اگر در جایی نخواستید از Microsoft scriptin Runtime استفاده کنید می توانید این روش را بکار گیرید

[Abbas Arizi]

البته به جای CreateDirectory میتوانید از تابع MkDir از توابع خود VB نیز استفاده کنید.

عباس عریضی