If Dir("put full filepath and filename here") = "" Then Msgbox "The file was not created." End If
652 total views, 1 views today
652 total views, 1 views today
|
||||||
If Dir("put full filepath and filename here") = "" Then Msgbox "The file was not created." End If 652 total views, 1 views today 652 total views, 1 views today Sometimes you need to see if a file is in a directory for one reason or another… Will delete the file if it exists If FileExists(C:\Folder\Subfolder\YourDatabaseName.accdb) Then Kill "C:\Folder\Subfolder\YourDatabaseName.accdb" Else Msgbox "Nothing to do!" End if Will rename the file if it exists If FileExists("\\YourServerName\Folder\Subfolder\" & Me.cboYear & "-VendorReevaluation.xlsx") = True Then xlWBk.SaveAs "\\YourServerName\Folder\Subfolder\" & […] 2,526 total views, 2 views today |
||||||
Copyright © 2024 Access… entials - All Rights Reserved Powered by WordPress & Atahualpa |