VB دا مۇندەرىجىنىڭ بار-يوقلىقىنى ئىنىقلاش
سالام مۇنبەر ئەھلى:مۇنبەرنىڭ vb\vb.netسەھىپىسى چولدەرەپ قاپتۇ، بۇجايمۇ ياخشى سورۇن ئىدى.
مۇنبەردە پىرۇگىرامما تۇزۇش ھەۋەسكارلىرىنىڭ يوقلىقىغا ھەرگىز ئىشەنمەيمەن.
بۇندىن كىيىن ۋاقىت چىقسىلا بۇرۇن ئۇگەنگەن كىچىك مەزمۇنلارنى دوسلار بىلەن ئورتاقلاشماقچىمەن.
VB دا كۆزلىگەن ئورۇندىكى بەلگۇلەنگەن مۇندەرىجىنىڭ بار-يوقلىقىنى ئىنىقلاش ئۇسۇلى:
كود مىسالى:Private Sub Command1_Click()
If Dir("c:\123", vbDirectory) = "" Then
MsgBox "Yoq"
Else
MsgBox "Ba"
End If
End Sub
يۇقارقى كود ئارقىلىق كومپيۇتىرنىڭ C دىسكىسى ئاستىدا 123 ئىسىملىك ھۆججەت سومكىسىنىڭ بار يوقلىقىنى ئىنىقلىغىلى بولدۇ.
ئەگەر بار بولسا Ba يوق بولسا Yoq دەپ ئۇچۇر قايتۇرىدۇ.
يۇقارقى ئۇسۇل ئارقىلىق مەلۇم ھۆججەتنىڭمۇ بار يوقلىقىغا ھۆكۈم قىلىشقا بولىدۇ.Private Sub Command1_Click()
If Dir("c:\windows\explorer.exe", vbDirectory) = "" Then
MsgBox "Yoq"
Else
MsgBox "Ba"
End If
End SubC دېسكىنىڭ Windows مۇندەرىجىسى ئاستىدا Explorer.exe دىگەن ھۆججەتنىڭ بار يوقلىقىغا ھۆكۈم قىلىدۇ، بار بولسا Ba يوق بولسا Yoq دەپ ئۇچۇر قايتۇرىدۇ. يائاللا..........
بۇمۇنبەردە يۇمشاق دىتالغا قىززىقىدىغانلارمۇ باركەن:P vb.net
Imports System.IO
Directory.Exists
File.Exists
بەت:
[1]