Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim di As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives()
Dim b As IEnumerable(Of System.IO.DriveInfo) = From myItem As System.IO.DriveInfo In di Where myItem.Name = "C:\"
Dim di As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives()
Dim b As IEnumerable(Of System.IO.DriveInfo) = From myItem As System.IO.DriveInfo In di Where myItem.Name = "C:\"
function in_array(zarray,waarde)
dim i as integer
for i = 0 to zarray.length
if zarray(i) = waarde then
return true
end if
loop
return false
if in_array(mijnArray, 'een-waarde') = true then
'ja
end if
En hoe kan ik vervolgens controleren of hij ook echt bestaat?
if b = true then ... werkt niet echt...
If b.Count > 0 Then
MsgBox("Schijf bestaat")
Else
MsgBox("Schijf bestaat niet")
End If
Je vroeg alleen eerst of hij een bepaalde waarde bevat.
zoals al aangegeven wordt alleen c:\ in de IEnumerable toegevoegd als ie al bestaat.
Dus als IEnumerable leeg is dan bestaat ie niet, dus met een count functie groter 0 heb je je vergelijking.
Code:If b.Count > 0 Then MsgBox("Schijf bestaat") Else MsgBox("Schijf bestaat niet") End If
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.