كود انشاء مجلد لكن بطريقة رائعه

شكرا لك أخي boooo7 على الكود الجميل

السلام عليكم ورحمة الله وبركاته

كما تقول سنكتب اسم المجلد كاملاً فى صندوق الادخال وسيخزن فى المتغير sRet

اذاً مافائدة المتغير sCurPath ؟؟؟؟؟؟؟؟

هو لن يؤثر على الكود لانه لايحتوى على اية بيانات فلا فائدة منه :rolleyes:

مشكورين على الردود حبايب قلبي

وبخصوص اخوي GHOST2010 شوف اللي يريحك ياكابتن B)

الكود بعد التعديل

اقتباس

Private Sub Command1_Click()

Dim sRet As String

sRet = InputBox("Enter new local directory name:")

MkDir sRet

End Sub

وهذا كود حذف اي ملف وليس مجلد 

اقتباس
Private Sub Command1_Click()
Dim sRet As String
   sRet = InputBox("Enter new local directory name:")
 kill  sRet
   
End Sub[CODE]


هذا حذف مجلد

Dim sRet As String

sRet = InputBox("Enter new local directory name:")

RmDir sRet

السلام عليكم ورحمة الله وبركاته

هذا الكود يحذف المجلد بالكامل

Private Sub Command1_Click()
Dim O As Object
Set O = CreateObject("Scripting.FileSystemObject")
O.DeleteFolder "C:\Test"
End Sub

انا مش عارف يعني ايه الرائع في الموضوع ما هوا ده الكود اللي بنحذف بيه المجلد من 15 سنة ايه الفكرة الجديدة يعني؟!!!!!!!!!!!

:D

عجبني رد الأخ رومانتيك برو

الفكرة الجديده إنو أمر خارج عن العاده تقدر تنشئ ملف لأول مرة في حياتك ... هذا الأخ مبتدئ يعني شيء قوي يعمل مثل كذا برامج

أشكرك أخوي طــــــــbooooooooo7ـــــــــلال

-waf

أنصحك يأستخدام دوال ال api

بدلاً من MKDIR

ضع في موديول

Public Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

Public function Createdirectory lib "kernel32" alias "CreateDirectoryA" (Byval lpPathName As String, _

lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

ضع في الكوماند

dim retvalue as long

dim x as SECURITY_ATTRIBUTES

retvalue = createdirctoy("c:\walied",x)