Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim os As OperatingSystem = Environment.OSVersion
'Label9.Text = os.ToString
If My.Computer.FileSystem.DirectoryExists("D:/") = True Then
MsgBox("Der benötigte Datenträger exestiert.")
Else
MsgBox("Kann D:/ nicht finden!")
End If
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.
You may choose not to have a unique web analytics cookie identification number assigned to your computer to avoid the aggregation and analysis of data collected on this website.