ciao, io uso questo trucchetto, l'unico inconveniente e' che nel nome del file ci deve essere scritto qualcosa
codice:
Using _OpenFileDialog As New OpenFileDialog
	With _OpenFileDialog
		.InitialDirectory = Application.StartupPath		
		.CheckFileExists = False
		.CheckPathExists = True
		.Multiselect = False
		.FileName = "Click Su Apri"		
		.Filter = "All files|*.*"
		If .ShowDialog() = Windows.Forms.DialogResult.OK Then			
			Cartella = Replace(.FileName, "Click Su Apri", "")
		End If
	End With
End Using