Search fileُ

[morika]

سلام
می خواستم راجع به جستجو کردن یک فایل تو هارد سوال کنم یعنی اینکه بگرده ببینه هنچین فایلی تو مسیر \:C وجود داره یا نه
ممنون

[مجتبی کریمی]

سلام
اینو تو NotePad ویرایش کردم .اگه یکم بد شده باید ببخشید.ولی فکر کنم کار کنه.
البته اگه منظورتونو درست فهمیده باشم!


Private Function Search(ByVal path As String,FileAddress as string)As Boolean
Dim strFileNames() As String
Dim strDirNames() As String
strFileNames = IO.Directory.GetFiles(path)
For Each OldF As String In strFileNames
If OldF = FileAddress Then
return true
End If
Next
strDirNames = IO.Directory.GetDirectories(path)
For Each OLDDIR As String In strDirNames
if Search(OLDDIR, FileAddress) = true
return true
end if
Next
End Function

[morika]

من دستوری رو که میگم داشتم اما حالا یادم رفته دستور من یه چیز یه خطی بود شبیه این :

if dir("C:\ali.txt",true),(ali.txt) then msgbox("true")
من کامل این دستور رو می خوام

[mostafaaa]

سلام دوست من

If IO.File.Exists("FilePath") Then
'Yor code here
End If