Kirjoittaja: tnb
Kirjoitettu: 09.02.2004 – 09.02.2004
Tagit: koodi näytille, vinkki
Windows hakemiston saa selville näinkin ja ilman mitään API:ja.
Imports System.Management '(Project/Add Reference/ .Net / System.Management)
Function WindowsDirectory() As String
'--------------------------------------------------
' Returns WindowsDirectory string like "C:\WINDOWS"
' Imports System.Management
' by TNB 2004 rev.1
'--------------------------------------------------
Dim mnc As New System.Management.ManagementClass("Win32_OperatingSystem")
Dim moc As System.Management.ManagementObjectCollection = mnc.GetInstances()
Dim moe As System.Management.ManagementObjectCollection.ManagementObjectEnumerator
Dim mo As System.Management.ManagementObject
Dim wd As String
moe = moc.GetEnumerator
While moe.MoveNext()
mo = CType(moe.Current, ManagementObject)
wd = CType(mo.Item("WindowsDirectory"), String)
End While
Return wd
End FunctionKäyttö
TextBox1.Text = WindowsDirectory()
Ei toimi.Valittaa System.Management:tista ja kaikesta joka liittyy managementtiin.
Toimii se.
Muistittahn lisätä ylävalikosta "Project/Add Reference/ .Net / System.Management"
Samoin Imports kohta koodin ihan alkuun General Deglarations kohtaan?
--------------------------------------------
Nää tnb:n vinkit ovat muutoin ihan hyviä, mutta saisi tarkemmin kertoa mihin laitetaan mikäkin koodi.
Vähän jo koodannut tuon nyt osaa, mutta aloittelijoille nämä vinkit ovat hepreaa eikä kovin helposti saa toimimaan.
----------------------------------
Eikö tosissaan tuota saa helpommin tietoon?
Muistelen että VB6:ssa olisi ollut vastaava kuin app.path myös Windows kansiolle, kuten on myös system kansiolle, kuin myös Fonts kansiolle, jne, jne.
kätevä homma
Environment.GetFolderPath(Environment.SpecialFolder.System)