Question

我有一个文本字符串，它是文件路径，后跟文件名。这是一个例子： \服务器\文件夹\子文件夹\输出\ filename_05272015.xlsx 文件名也可以是： \服务器\文件夹\子文件夹\ OUTPUT \ filename2_05272015.xlsx

我想要完成的是：根据用户选择的“输入”获取当前文件名，输出结尾为_Modified.xlsx的文件名。

这些文件名在我的VB中变暗

 Dim CurrentFile as string
 Dim strPath as string
   CurrentFile = Mid(me.Text1,34,18)
   strPath = Me.OutputFolderText & "\" & CurrentFile & "_Modified.xlsx"
 DoCmd.TransferSpreadsheet acExport, 10, "qry_MyQuery", strPath

问题是输出文件名如下所示：

filename2_05272015_Modified.xlsx 然后

filename_05272015._Modified.xlsx，其中有一个“。”在MMDDYYYY之后

我想弄清楚如何让所有变体都有一个准确的输出文件名_05272015_modified.xlsx

_MMDDYYYY之前的文字可能会发生变化。 _MMDDYYYY_Modified.xlsx将始终位于文件名的末尾。

Answer 1

啊VBA。你能尝试一下吗？

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
CurrentFile = fso.GetFileName(me.Text1)

Answer 2

我得到了它的工作。不确定这是否是最好的方法

 CurrentFile = Mid(Left(Me.Text1, InStr(Me.Text1, ".") - 1), 34,  18)

Access 2010，输入文件名，末尾添加文本

2 个答案: