无法在映射驱动器上找到新文件夹

Question

我创建了一个宏，可以在触发宏时自动将当前工作簿上传到共享点。宏成功，正在将文件上传到映射到驱动器的共享点文件夹。

但是，只有在 SharePoint 文件夹创建时间之前宏才会成功。例如。可能提前 1 天。

如果文件夹是新创建的，将无法上传到文件夹Sorry there's no such folder。

如果我使用 window 资源管理器访问驱动器，我将能够看到新创建的文件夹。我还尝试复制消息框中显示的文件路径并输入 window 资源管理器，它会毫无问题地将我定向到该文件夹。

有什么方法可以加快这个过程，为什么会这样？

宏 IF 语句

If Dir(spPath) = "" Then
    MsgBox "Sorry there's no such folder. Folder Path: " & vbNewLine & vbNewLine & spPath & ""
    Call UnMapDrive(drive)
    Exit Sub
    ElseIf Not Dir(spPath & fileName) = "" Then
    MsgBox("File Already Exist!!!")
    ElseIf Dir(spPath & fileName) = "" Then
    FolderCreate (path)
    ThisWorkbook.SaveCopyAs copyPath & fileName
    Call FileCopy(path & fileName, spPath & fileName)
    MsgBox "File Successfully uploaded to SharePoint."
    Kill (path) & "*.*"
    RmDir path
    Call UnMapDrive(drive)
End If

Answer 1

改变

If Dir(spPath) = "" Then

至

If Dir(spPath, vbDirectory) = "" Then

直到有人将文件放入目录（可能是在创建目录后的一天），您的代码才会在其中看到任何文件（因为根本没有）。通过添加 vbDirectory 它将查找目录本身。

无法在映射驱动器上找到新文件夹

Unable to locate new folder on mapped drive

mapping

connection

excel

sharepoint

vba