Hente ut alle file extensions på en maskin

[miXer]

Heisann.

 

Er det mulig å hente ut alle file extensions som finns på maskinen og legge dem i et array?

 

Dette er et teit spørsmål men: Hvordan kan jeg få Textbox1_KeyDown sub'en til å aktivere f.eks Button1_Click sub'en?

Har prøvd med Button1.Select(), men denne bare merker knappen. hmm..?

Endret 22. februar 2008 av miXer

[GeirGrusom]

Er dette VB.NET?

isåfall er svaret på nederste spørsmål Button1.PerformClick()

 

Når det gjelder extensions, så er dette lagret i registeret i HKEY_CLASSES. Du får kikke på Microsoft.Win32.Registry klassene, og se om du finner ut av det.

[backup]

Et vbs-script som fra registeret (iallfall på winXP) lister ut i notpad alle registrerte file extensions:

 

Const HKEY_LOCAL_MACHINE = &H80000002
Set W = WScript.CreateObject("WScript.Shell")
Set Reg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
"." & "\root\default:StdRegProv")
strPath = "SOFTWARE\Classes"
Reg.EnumKey HKEY_LOCAL_MACHINE, strPath, arraySubKeys
For Each SubKey In arraySubKeys
  If Left(SubKey,1) = "." Then
  Output = Output & "   "  & SubKey & vbcrlf
  ElseIf Not Left(SubKey,1) = "*" Then
  W.run "Notepad.exe"
  Wscript.sleep 1000
  W.SendKeys Output
  WScript.Quit
End If
Next

[Manfred]

Leser du i det hele tatt tooltipene som kommer opp i VisualStudio mens du skriver? Da ville du kjapt sett at Select() bare markerer kontrollen. Som GeirGrusom sier kan du bruker PerformClick(), eller så kan du kalle den direkte Button1_Click(sender, e). Men det er vel anbefalt å bruke PerformClick()

 

Microsoft.Win32.Registry.RegistryKey.Open()...

[miXer]

Leser du i det hele tatt tooltipene som kommer opp i VisualStudio mens du skriver? Da ville du kjapt sett at Select() bare markerer kontrollen. Som GeirGrusom sier kan du bruker PerformClick(), eller så kan du kalle den direkte Button1_Click(sender, e). Men det er vel anbefalt å bruke PerformClick()

 

Microsoft.Win32.Registry.RegistryKey.Open()...

 

Ja jeg leser ToolTipene som kommer opp, men når jeg skriver Button1. og lista kommer opp og jeg scroller meg nedover så er ikke PerformClick() der som et valg. Det kom ikke frem før jeg begynte å skrive det. Hvordan kan da ToolTipene hjelpe meg?

 

Slutt å mas.. Spør ikke bare for moro skyld.

 

Takk for tipset om registeret! Skal prøve det

[miXer]

Er dette VB.NET?

isåfall er svaret på nederste spørsmål Button1.PerformClick()

 

Når det gjelder extensions, så er dette lagret i registeret i HKEY_CLASSES. Du får kikke på Microsoft.Win32.Registry klassene, og se om du finner ut av det.

 

 

Leser du i det hele tatt tooltipene som kommer opp i VisualStudio mens du skriver? Da ville du kjapt sett at Select() bare markerer kontrollen. Som GeirGrusom sier kan du bruker PerformClick(), eller så kan du kalle den direkte Button1_Click(sender, e). Men det er vel anbefalt å bruke PerformClick()

 

Microsoft.Win32.Registry.RegistryKey.Open()...

 

Takk for svarene om registeret.

Jeg løste dette slik:

 

Dim sokTypes As String() = Microsoft.Win32.Registry.ClassesRoot.GetSubKeyNames()
	Dim sokFile As String
	For Each sokFile In sokTypes
		If sokFile.Substring(0, 1) = "." Then
			ComboBox1.Items.Add(sokFile)
		Else
			ComboBox1.Items.Add("." & sokFile)
		End If
		'ComboBox1.Items.Add("." & sokFile)
	Next

[Manfred]

Vil ikke den der traversere omtrent hele registeret og bare sjekke om nøklene starter med punktum? En små-grisete løsning, vil jeg si...

[miXer]

Jo, den sjekker om endelsen begynner med punktum, hvis ikke adder inn punktum. Programmet sliter litt hvis endelsen ikke inneholder punktum seru

 

Tar gjerne imot bedre forlsag

Endret 23. februar 2008 av miXer

[Manfred]

Tror kanskje jeg tenkte feil. ClassesRoot åpner sikkert keyen HKEY_LOCAL_MACHINE\SOFTWARE\Classes, og da er vel kanskje det eneste og greieste måten å gjøre det på