使用部分名称搜索文件，然后将文件复制到其他位置

Question

嗨，我一直在尝试让它发挥作用，但我已经有一段时间没有使用VBA了，有人能照亮下面吗？非常感谢您的帮助getfolder行似乎对我不起作用。

专用子命令按钮1_Click((

专用子命令按钮1_Click(('将Const用于固定值将SRC_ PATH构造为字符串＝"；C： \用户\奥利弗\服务-工作表"将DEST_PATH构造为字符串＝"；C： \Users\oliver\Serving Client Files\Wasdell\ Job Sheets">

Dim fname As Variant
fname = Dir(SRC_PATH & "Wasdell Europe*")
If Len(fname) > 0 Then
FileCopy SRC_PATH & fname, DEST_PATH & fname
End If

结束子

Answer 1

应该工作：

Private Sub CommandButton1_Click()
'use Const for fixed values 
Const SRC_PATH As String = "C:UsersoliverServicing - Job Sheets"
Const DEST_PATH As String = "C:UsersoliverServicing Client FilesWasdellJob Sheets"
Dim fname As Variant

fname = Dir(SRC_PATH & "*Wasdell Europe*") '<< anywhere in file name

If Len(fname) > 0 Then
FileCopy SRC_PATH & fname, DEST_PATH & fname
End If
End Sub