مشاهده نسخه کامل
: آرشین
04-06-2008, 13:56
سلام
من میخوام وقتی روی فرم کلیک راست می کنم و گزینه new folder رو کلیک می کنم یه فولدر ایجاد بشه و اون فولدر روی فرم دیده بشه ! و همچنین بتونم با کلیک راست این فولدر رو حذف و تغییر نام هم بدم !
خودم یه برنامه نوشتم که البته اون با استفاده از کنترل های dir و drive , است که البته همینم مشکل داره فقط در پوشه ای که پروژه ایجاد شده فولدر ها رو ایجاد می کنه
اینم برنامه ای که من نوشتم که با استفاده از کنترل هاست ( قسمت مربوط به ایجاد )
ولی میخوام با کلیک راست این کارها انجام بشه
Dim fso1 As New FileSystemObject
کامند ایجاد
dirname$ = InputBox("enter dir name ", "create dir", "")
If fso1.FolderExists(dirname$) Then
MsgBox ("directory already exist ")
Exit Sub
End If
fso1.CreateFolder (dirname$)
Dir1.Refresh
من میخوام وقتی روی فرم کلیک راست می کنم و گزینه new folder رو کلیک می کنم یه فولدر ایجاد بشه و اون فولدر روی فرم دیده بشه ! و همچنین بتونم با کلیک راست این فولدر رو حذف و تغییر نام هم بدم !
خودم یه برنامه نوشتم که البته اون با استفاده از کنترل های dir و drive , است که البته همینم مشکل داره فقط در پوشه ای که پروژه ایجاد شده فولدر ها رو ایجاد می کنه
اینم برنامه ای که من نوشتم که با استفاده از کنترل هاست ( قسمت مربوط به ایجاد )
ولی میخوام با کلیک راست این کارها انجام بشه
Dim fso1 As New FileSystemObject
کامند ایجاد
dirname$ = InputBox("enter dir name ", "create dir", "")
If fso1.FolderExists(dirname$) Then
MsgBox ("directory already exist ")
Exit Sub
End If
fso1.CreateFolder (dirname$)
Dir1.Refresh