如何解决MS Access FileDialog 导致根文件夹
我正在使用 FileDialog 来选择用于 OutputTo 的文件夹。我已经编码了文件名。当我选择一个文件夹时，我得到一个格式正确的字符串，即：“C:\Documents\export.xls”。但是，当我选择根文件夹时，我得到了一个不正确的格式，即：“C:\\export.xls”。注意双斜线。
对导致这种行为的原因有什么想法吗？
Function selectFolder()
Dim fdf As FileDialog,FolderName As String
On Error GoTo ErrorHandler
Set fdf = Application.FileDialog(msoFileDialogFolderPicker)
fdf.InitialFileName = getdbpath
fdf.AllowMultiSelect = False
If fdf.Show = True Then
If fdf.SelectedItems(1) <> vbNullString Then
FolderName = fdf.SelectedItems(1)
End If
Else
'Exit code if no file is selected
End
End If
'Return Selected FileName
selectFolder = FolderName & "\AccountOutput.xls"
'Debug.Print FolderName
Set fdf = nothing
Exit Function
ErrorHandler:
Set fdf = nothing
MsgBox "Error " & Err & ": " & Error(Err)
End Function
解决方法
这就是文件夹选择器的工作方式 - 您需要处理这两种情况，例如
If Right$(FolderName,1) <> "\" Then
FolderName = FolderName & "\"
End If
selectFolder = FolderName & "AccountOutput.xls"
参见例如
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。