FilesExpand file tree

master

/

SelectFile.vb

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

15 lines (11 loc) · 348 Bytes

master

/

SelectFile.vb

Copy path

Top

File metadata and controls

• Code
• Blame

15 lines (11 loc) · 348 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Function SelectFile() As String

'Open the file dialog

With Application.FileDialog(msoFileDialogOpen)

.AllowMultiSelect = False

.Show

'Set function result to selected filename

If .SelectedItems.Count <> 0 Then

SelectFileName = .SelectedItems(1)

End If

End With

End Function