|
Mam naimportovanu fnc:
<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> Public Function QueryDosDevice(ByVal lpDeviceName As String, ByVal lpTargetPath As String, ByVal ucchMax As Integer) As Integer
End Function
A potom to volam
Sub Main()
Dim devstr As String = String.Empty
QueryDosDevice("A:", devstr, 1024)
Debug.Print(devstr)
End Sub
Problem je v tom, ze takto to funguje iba v Windows Application, ale nie Console Application. Neviete mi povedat kde robim chybu?
|