سلام!
اين كد رو ببينيد
داره ميگه اگر داخل درايو m فايله loader.dll بود يه true برگردون. من مي خوام يه جوري بنويسسمش كه با نام فايل كاري نداشته باشه و هر فايلي كه با پسوند dll وجود داشت true برگردونه. براي همين فكر كردم بايد اينجوري كنم
ولي اشتباهه. چكار كنم. البته ميتونم با استفاده از filelistbox.pattern مشكل رو حل كنم ولي چون يه selectcase با 14 تا case هست كدها بيشتر ميشه و دوست دارم مشكل رو با همين يك خط كد حل كنم
براي فولدر هم همين مشكل هست كه البته با pattern هم حل نميشه
ميخوام هر فوادري كه اول اسمش win بود true بده. مثلا winlogs باشه يا win32 يا .....
ممنون از اساتيد
اين كد رو ببينيد
کد:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
MsgBox fso.FileExists("m:loader.dll")
End Sub
کد:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
MsgBox fso.FileExists("m:[COLOR="Red"]*[/COLOR].dll")
End Sub
براي فولدر هم همين مشكل هست كه البته با pattern هم حل نميشه
کد:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
MsgBox fso.folderExists("m:windows")
End Sub
ممنون از اساتيد