Узнайте, существует ли файл и удалите этот файл в OneDrive - PullRequest
Новая
       23

Узнайте, существует ли файл и удалите этот файл в OneDrive

0 голосов
/ 07 февраля 2020

У меня был следующий VBA - код для удаления указанного c файла, если он существует на компьютере без OneDrive. 

Sub File_Exists()
If Dir("C:\Users\" & Environ("Username") & "\Desktop\" & "Hardcopy_Filename" & ".xlsm") <> "" Then
Kill "C:\Users\" & Environ("Username") & "\Desktop\" & "Hardcopy_Filename" & ".xlsm"
Else
End If
End Sub

Я хочу изменить VBA - код, чтобы проверить, существует ли файл на компьютере, и удалить его независимо от того, использует ли пользователь OneDrive или нет.

Я попытался выполнить следующий код, но это не сработало:

Сначала я сохранил бумажную копию на моем компьютере, которая работала хорошо. После этого я хотел удалить существующий файл, который не работал.

(1) 

Sub Hardcopy_File()
Dim DirName As String
DirName = VBA.FileSystem.Dir("C:\Users\" & Environ("Username") & "\OneDrive - limango.com\Desktop", vbDirectory)
If DirName = VBA.Constants.vbNullString Then
ActiveWorkbook.SaveCopyAs "C:\Users\" & Environ("Username") & "\Desktop\" & "Hardcopy_File" & ".xlsm"
Else
ActiveWorkbook.SaveCopyAs "C:\Users\" & Environ("Username") & "\OneDrive - limango.com\Desktop\" & "Hardcopy_File" & ".xlsm"
End If
End Sub

(2) 

Sub File_Exists()
If Dir("C:\Users\" & Environ("Username") & "\Desktop\" & "Hardcopy_Filename" & ".xlsm") <> "" Then
Kill "C:\Users\" & Environ("Username") & "\Desktop\" & "Hardcopy_Filename" & ".xlsm"
Else
End If
Dim DirName As String
DirName = VBA.FileSystem.Dir("C:\Users\" & Environ("Username") & "\OneDrive - limango.com\Desktop" & "Hardcopy_Filename" & ".xlsm", vbDirectory)
If DirExists = True Then
Kill DirName
Else
End If
End Sub

Как изменить код, чтобы файл также удалялся при использовании OneDrive?

...