دستور RUN بدون پنجره

[IC_prog]

من در یک برنامه قدیمی تحت داس به لیست کلیه فایلهای یک درایو نیاز داشتم که این کار رو با انجام دستور run dir/s c:\ c:\test انجام میدادم وحالا برنامه رو تبدیل به تحت ویندوز کردم ولی مشکل اینجاست که در موقع اجرای دستور فوق پنجره CMD باز میشه .
آیا راحی هست که بشه این پنجره نمایش داده نشه ؟
آیا راحی برای مخفی کردن این پنجره وجود داره ؟
آیا اصلا برای دستور مورد نظر معادلی در VFP وجود داره که دیگه نیاری به استفاده از run نباشه .( البته باز هم تاکید میکنم من نیاز به اجرای دستوری هستم تا لیست کلیه فایلها و فولدرهای یک پارتیشن رو توی یک فایل text بریزه)
اساتیدی که تجربه ای در این زمینه دارند لطفا راهنمایی کنند.:متفکر:

[rezamim]

توی هلپ فاکس یه نگاهی به Filer.dll بکنید



*** Instantiate the Filer object
oMyFiler = CREATEOBJECT('Filer.FileUtil')

oMyFiler.SearchPath = 'C:\' && Default directory
oMyFiler.FileExpression = '*.*' && Text file search

oMyFiler.Find(0) && Search, discard last collection

FOR nFileCount = 1 TO oMyFiler.Files.Count
? oMyFiler.Files.Item(nFileCount).Name && Show fileName
ENDFOR

[mehran_337]

اگر دستور run را بصورت run/n ( بدون فاصله) بنویسید دیگر پنجره کامند نمایش داده نمی شود

[IC_prog]

اگر دستور run را بصورت run/n ( بدون فاصله) بنویسید دیگر پنجره کامند نمایش داده نمی شود
با تشکر از حسن توجه شما
این روش در مورد دستوراتی مانند dir کاربردی نیست. بلکه بیشتر جهت دستورات و برنامه های تحت ویندوز کاربردیست

[rezaTavak]

adir()

یک لیست از فایلها به شما خواهد داد.

[IC_prog]

adir()

یک لیست از فایلها به شما خواهد داد.
با تشکر
من به لیست کلیه فایلها و فولدرهای یک درایو نیاز دارم .
مشابه دستور dir/s در داس . امیدوارم منظورم رو رسونده باشم :کف:

[rezaTavak]

بایدبا آلگورتیم بازگشتی خودتون بنویسید.

شاید هم API ویندوز چنین چیزی داشته باشد.

[mehran_337]

این تابع مسیری را بعنوان پارمتر دریافت می کند و لیست کلیه فایلها و فولدرهای موجود در مسیر را درون کرسر می ریزد فکر کنم خواسته شما را برآورده خواهد کرد :


************************************************** *******
** Author : Ramani (Subramanian.G)
** FoxAcc Software / Winners Software
** ramani_vfp@yahoo.com
** Type : Freeware with reservation to Copyrights
** Warranty : Nothing implied or explicit
** Last modified : 31 January, 2003
************************************************** *******
** The following uses Filer.DLL and
** extracts all files in a directory as a cursor.
** How to run : Save this as dir2Cursor.prg
** =dir2Cursor(cDir)
************************************************** *******
** FUNCTION dir2cursor
PARAMETERS pDir , ftype
IF PARAMETERS() < 1 OR EMPTY(pDir)
pDir = SYS(5)+SYS(2003)
ENDIF
pDir = ADDBS(ALLTR(pDir))
CREATE CURSOR SYS(2015) (cfilename c(128))
omyfiler = CREATEOBJECT('Filer.FileUtil')
omyfiler.searchpath = pDir && Search Directory
omyfiler.subfolder = 1 && 1=add all subdirectories else 0
oMyFiler.SortBy = 0
omyfiler.FIND(0)
LOCAL ncount
ncount = 1
FOR nfilecount = 1 TO omyfiler.FILES.COUNT
IF omyfiler.FILES.ITEM(nfilecount).NAME = "." OR ;
omyfiler.FILES.ITEM(nfilecount).NAME = ".."
LOOP
ENDIF
IF !EMPTY(ftype)
IF UPPER(JUSTEXT(omyfiler.FILES.ITEM(nfilecount).NAME )) <> UPPER(ftype)
LOOP
ENDIF
ENDIF
APPEND BLANK
REPLACE cfilename ;
WITH UPPER(omyfiler.FILES.ITEM(nfilecount).PATH)+ ;
UPPER(omyfiler.FILES.ITEM(nfilecount).NAME)
ENDFOR
RETURN DBF()
************************************************** *******
* EOF

[IC_prog]

استاد ارجمند جناب مهران
با تشکر فراوان

[rezamim]

خب اینم از فایلر استفاده کرده !