فایل ای یک درایو در Combo

[nimar9]

سلام خدمت تمامیه کاربرای عزیز سایت.
من تو انجمن سرچ کردم و دستور این کار رو پیدا کردم زدم به درستی کارکرد.
اما من می خوام که داخله combo فقط اسم فولدر رو بنوسه و اینجوری نشه.
c:/programfiles/h
و باشه h
اینم تصویر نمونه: http://up-nimar9.tk/files/1361550113.png

[SlowCode]

سلام

Address = App.Path
Combo1.AddItem Mid(Address, InStrRev(Address, "\") + 1)

[nimar9]

ممنون کار کرد اما یک اشکال من می خوام برنامه ای که می نویسم وقتی باز می کنی اسم همه ی فولدر های داخله فولد nimar9 رو تو combo بنویسه البته بدون آدرس و فقط اسم فولدر. ممنون

[SlowCode]

نمونه های بیشماری تو نت هست!!!

f=dir("C:\new folder", vbDirectory)
while f<>""
Combo1.AddItem f)
f=Dir()
wend

البته بهتره از FSO استفاده کنی:

Set fso = CreateObject("scripting.filesystemobject")
Set folders = fso.getfolder("C:\")
For Each folder In folders.SubFolders
Print folder.Name
Next

[nimar9]

این دستور . و .. رو هم میاره . چی کار میشه کرد که نیاد . این دو.
و یه سوال دیگه من یه کامند هم دارم تو فرمم که وفتی اونو میزنم اسم فایلی که تو کامبو انتهاب کردیم رو کپی کنه تو یه فولدر دیگه تو همون آدرس کپی شه . وافا ممنونم ازتون :بوس:

[SlowCode]

این دستور . و .. رو هم میاره . چی کار میشه کرد که نیاد . این دو.
و یه سوال دیگه من یه کامند هم دارم تو فرمم که وفتی اونو میزنم اسم فایلی که تو کامبو انتهاب کردیم رو کپی کنه تو یه فولدر دیگه تو همون آدرس کپی شه . وافا ممنونم ازتون :بوس:
. و .. رو واسه من نمیاره! به هر حال یه شرط بزار که اگه . یا .. بود اضافش نکنه.(کار با رشته ها و شرط رو یاد بگیر)
از دستور fileCopy استفاده کن.
میتونی تو گوگل سرچ کنی و کلی آموزش پیدا کنی.