VB دا مۇندەرىجىنىڭ بار-يوقلىقىنى ئىنىقلاش

سالام مۇنبەر ئەھلى:
مۇنبەرنىڭ vb\vb.net  سەھىپىسى چولدەرەپ قاپتۇ، بۇجايمۇ ياخشى سورۇن ئىدى.
مۇنبەردە پىرۇگىرامما تۇزۇش ھەۋەسكارلىرىنىڭ يوقلىقىغا ھەرگىز ئىشەنمەيمەن.
بۇندىن كىيىن ۋاقىت چىقسىلا بۇرۇن ئۇگەنگەن كىچىك مەزمۇنلارنى دوسلار بىلەن ئورتاقلاشماقچىمەن.

VB دا كۆزلىگەن ئورۇندىكى بەلگۇلەنگەن مۇندەرىجىنىڭ بار-يوقلىقىنى ئىنىقلاش ئۇسۇلى:
كود مىسالى:

1. Private Sub Command1_Click()
   
2. If Dir("c:\123", vbDirectory) = "" Then
   
3.    MsgBox "Yoq"
   
4.    Else
   
5.    MsgBox "Ba"
   
6. End If
   
7. End Sub
   
8. 
   

مەزمۇننى كۆچۈرۈۋېلىش

يۇقارقى كود ئارقىلىق كومپيۇتىرنىڭ C دىسكىسى ئاستىدا 123 ئىسىملىك ھۆججەت سومكىسىنىڭ بار يوقلىقىنى ئىنىقلىغىلى بولدۇ.
ئەگەر بار بولسا Ba يوق بولسا Yoq دەپ ئۇچۇر قايتۇرىدۇ.

يۇقارقى ئۇسۇل ئارقىلىق مەلۇم ھۆججەتنىڭمۇ بار يوقلىقىغا ھۆكۈم قىلىشقا بولىدۇ.

1. Private Sub Command1_Click()
   
2. If Dir("c:\windows\explorer.exe", vbDirectory) = "" Then
   
3.    MsgBox "Yoq"
   
4.    Else
   
5.    MsgBox "Ba"
   
6. End If
   
7. End Sub

مەزمۇننى كۆچۈرۈۋېلىش

C دېسكىنىڭ Windows مۇندەرىجىسى ئاستىدا Explorer.exe دىگەن ھۆججەتنىڭ بار يوقلىقىغا ھۆكۈم قىلىدۇ، بار بولسا Ba يوق بولسا Yoq دەپ ئۇچۇر قايتۇرىدۇ.

يائاللا..........
   بۇمۇنبەردە يۇمشاق دىتالغا قىززىقىدىغانلارمۇ باركەن

vb.net
Imports System.IO
Directory.Exists
File.Exists