Sub getFileName()
Dim FileName As String
Dim Fe As FileDialog
Set Fe = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With Fe
.Title = "选择雇员照片"
.Filters.Add "所有文件", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "位图文件", "*.bmp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
If .Show= -1 Then
For Each vrtSelectedItem In .SelectedItems
FileName = Trim(vrtSelectedItem)
Next vrtSelectedItem
Else
Exit sub
End If
End With
Set Fe = Nothing
If FileName <> "" Then
If Dir(Paths & "\photo\", vbDirectory) = "" Then MkDir Paths & "\photo\" '检测文件夹photo是否存在