PDA

View Full Version : ایجاد دایرکتوری



m_zargarnia
سه شنبه 02 اردیبهشت 1382, 09:41 صبح
با سلام به همگی .
مییخواهم نام شاخه مورد نظرم را در یک textbox بنویسم و شاخه مورد نظر ایجاد شود .

jannati
سه شنبه 02 اردیبهشت 1382, 10:21 صبح
عزیزم .در ابتدا در 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
سه شنبه 02 اردیبهشت 1382, 19:42 عصر
m_zargarnia عزیز می توانید از تابع API با نام CreateDirectory استفاده کنید. البته برای استفاده از آن بدلیل اینکه این تابع فقط یک دایرکتوری را می تواند بسازد باید نام دایرکتوریها را از سمت چپ به ترتیب جدا کرده و بررسی کنید که آیا وجود دارند و یا باید ساخته شوند. به هرحال اگر در جایی نخواستید از Microsoft scriptin Runtime استفاده کنید می توانید این روش را بکار گیرید

Abbas Arizi
سه شنبه 02 اردیبهشت 1382, 20:32 عصر
البته به جای CreateDirectory میتوانید از تابع MkDir از توابع خود VB نیز استفاده کنید.

عباس عریضی