sub button1_click Dim a as FileDialog set a=Application.FileDialog(msoFileDialogPicker) a.show end sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)