Beste...,
Ik heb de korte DOS naam (8.3 naam) van MP3-bestanden nodig.
Ik wil graag een directory op geven en dat het programma dan alle MP3-bestanden weergeeft in 8.3 naam.
In VB6.0 kon ik dit doen door bijvoorbeeld dit (dan wel per bestand):
strComputer = "."
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where name = 'D:\\Temp\\Test.mp3'")
For Each objFile In colFiles
Wscript.Echo("8.3 file name: " & objFile.EightDotThreeFileName)
Next
Maar Visual .Net wil graag dat ik de variabele objWMIService en objFile en colFiles declareer.
Geen idee wat voor een variabelen dit zijn (het bovenstaande komt uit een chm-script bestand).
Weet iemand hoe ik de korte 8.3 namen van alle MP3-bestanden uit een directory kan halen?
Uiteraard hoeft het niet met de bovenstaande code; liever heb ik iets dat echte VB .Net code is en geen scripting.
Alvast bedankt!
groet,
Dave.
Ik heb de korte DOS naam (8.3 naam) van MP3-bestanden nodig.
Ik wil graag een directory op geven en dat het programma dan alle MP3-bestanden weergeeft in 8.3 naam.
In VB6.0 kon ik dit doen door bijvoorbeeld dit (dan wel per bestand):
strComputer = "."
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where name = 'D:\\Temp\\Test.mp3'")
For Each objFile In colFiles
Wscript.Echo("8.3 file name: " & objFile.EightDotThreeFileName)
Next
Maar Visual .Net wil graag dat ik de variabele objWMIService en objFile en colFiles declareer.
Geen idee wat voor een variabelen dit zijn (het bovenstaande komt uit een chm-script bestand).
Weet iemand hoe ik de korte 8.3 namen van alle MP3-bestanden uit een directory kan halen?
Uiteraard hoeft het niet met de bovenstaande code; liever heb ik iets dat echte VB .Net code is en geen scripting.
Alvast bedankt!
groet,
Dave.
