[Amin_Mansouri]

دوست عزیز خیلی ساده هست شما باید اول پوشه ویندوز رو مسیرشو بدست بیاری
با تابع
GetWindowsDirectory
مسیرو بدست بیار بعد تو هنگام جستجو اون قسمتی که فایل به لیست باکس اضافه میکنی شرط بزار
با تابع
INSTR
چک کن اگر مسیر ویندوز تو مسبر بدست امده از جستجو یکی بود ان رو ادد نکنه
من برات مثالی نوشت متاسفانه وی بی 6 ندارم سورستو با نت پد دیدم به هر حال برات نمونه سورس نوشتم اگر جاییی اشتباه کردم ببخشید اخه وی بی 6 رو نوت بوک داداشم ندارم.

کد:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

public function PathWindows As string
Dim StrBuffer As String

StrBuffer=Space(255)

WinPath=GetWindowsDirectory(StrBuffer, 255)

StrBuffer = Left$(StrBuffer, WinPath)

PathWindows = StrBuffer

end function


Call PathWindows
Word = Pathwindows

if instr(1,path,"PathWindows) then

' agar File Peyda Kard Kari Anjam Nadahad
else
List1.AddItem path & FileName
END IF