PDA

View Full Version : ساخت پوشه



parsiyan_mohsen
یک شنبه 07 تیر 1388, 12:30 عصر
سلام دوستان؛
چه کدی رو باید نوشت تا کنار فایل های vb خودمون یه پوشه درست کنه به اسم مثلاً : Backup از دوستان عزیز می خواهم که راهنماییم کنین.
ممنون

morika
یک شنبه 07 تیر 1388, 12:43 عصر
یا دستور mkdir می تونی پوشه رو درست کنی

mkdir "E:\ali"
اما اگه می خوای تو مسیر برنامه درست کنه

mkdir app.path , "\Ali"

alih110
یک شنبه 07 تیر 1388, 12:52 عصر
سلام

اینم سورس !!!!

برای ساخت فولدر 2 راه وجود داره که سورس هر 2 راهشو برات گذاشتم .

در ضمن برای راه دوم باید اول در پروژت به منوی Project مراجعه کنی بعد به قسمت References

و گزینه Microsoft Scripting RunTime رو تیک دار کن .

alih110
یک شنبه 07 تیر 1388, 12:57 عصر
در ضمن در راه دوم پوشه ها و فایل ها رو میتونی کپی و جابه جا کنید

saeedzx
یک شنبه 07 تیر 1388, 14:52 عصر
سلام دوست گرامی

این همون کدی که شما دونبالش می گردید


Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long


Private Sub Command1_Click()
'براي ساختن پوشه ازاين کد استفاده مي کني
MakeSureDirectoryPathExists "C:\VB6\www.jadougar.ir\"
End Sub

Private Sub Command2_Click()
' براي حذف کردن پوشه از اين کد
RemoveDirectory "C:\VB6\www.jadougar.ir\"
End Sub


برنامه نویسان (http://www.jadougar.ir):تشویق:

butterfly8528
یک شنبه 07 تیر 1388, 15:00 عصر
دوست عزیز برای ساخت پوشه های تو در تو هم از این روش استفاده کن :


Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Form_Load()
MakeSureDirectoryPathExists App.Path & "\this\is\a\test\directory\"
End Sub

keylogger
چهارشنبه 24 تیر 1388, 18:33 عصر
دوستان من یک مشکلی دارم من کد ساخت فولدر رو قرار دادم روی فرم لود وقتی پوشه رو میسازه
بعد که از برنامه میاد بیرون و دوباره وارد برنامه میشید وقتی فرم لود میشه ارور میده ایا سورسی هست این مشکل رو هل کنه ارور هم به خاطر وجود داشتن پوشه است

دوستان من روی فرم آنلود کد زیر را قرار دادم ولی دوباره که وارد فرم میشه پوشه نمیسازه

RmDir App.Path + "\" + "log"

xxxxx_xxxxx
پنج شنبه 25 تیر 1388, 21:44 عصر
تابع API با نام CreateDirectory


Private Declare Function CreateDirectoryA Lib "kernel32.dll" (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long

Private Sub Form_Load()
CreateDirectoryA "C:\New Folder", 0
End Sub

keylogger
سه شنبه 30 تیر 1388, 04:41 صبح
دوستان من بازم به جواب نرسیدم من سورسی می خوام که وقتی وارد فرم میشه فولدر بسازه و وقتی خارج میشه فولدر حذف میشه ولی در کد های بالا وقتی فولدر میسازه و حذف میکنه دیگه فولدر نمیسازه و وقتی می خواد خارج بشه اررور میده همچین فولدری ویجد نداره چون واقعا وجود نداره:عصبانی:

xxxxx_xxxxx
سه شنبه 30 تیر 1388, 12:31 عصر
من كه اصلاً نفهميدم ايني كه گفتيد اتفاق مي افته يا اوني هست كه شما مي خوايد.