Fa چك كردن مسير

[mbsa]

سلام
مي خواستم ببينم چطور مي شه مثلاً چك كرد كه كامپيوتر مقصد درايو F را داره يا نه ؟
يه چيزي شبيه FILE EXSIST ولي به جاي فايل مي خوام مسير را چك كنه .

ممنون از همگي (PhoeniX)

 

[the_king]

سلام
مي خواستم ببينم چطور مي شه مثلاً چك كرد كه كامپيوتر مقصد درايو F را داره يا نه ؟
يه چيزي شبيه FILE EXSIST ولي به جاي فايل مي خوام مسير را چك كنه .

ممنون از همگي (PhoeniX)

[COLOR="Blue"][B]drive$ = 'F:'[/B][/COLOR]
arg$ = 'HIDE,WAIT /C DIR ' + drive$ + '\nul > "%TEMP%\dir.out"'
Run("<System>\cmd.exe","arg$")
path$ = '<Temp>\dir.out'
LoadText("text$","FILE:path$")
newline$ = CHR(13) + CHR(10)
text$=StrChange(text$,newline$,'')
text$ = LOW(text$)
dir$ = 'directory'
i = POS(dir$,text$)
If (i > 0) Then
  Message("The drive is available.","")
Else
  Message("The drive is not available.","")
End