Check if file exists. Keeps skipping the existing file.

[Wicked_]

Hi.

So, i got a code for checking if a file exists from google.
The problem is with it, even tho the file actually exists, it keep skipping it, as it didn't exists.

Code:

Sub CFF()
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")


If fso.FileExists("Desktop\SkjKa.xlsm") Then
' do what you like in the case where the file exists
UserForm3.Show

Else
' do whatever you wanted to do where the file doesn't exist
Welcome.Show


End If

End Sub

If the file dont exist, it runs the welcome.show.
However, if the file exists in desktop, it still runs welcome.show, and not userform 3.

Does anyone know whats wrong here?

Thanks

 

[DanteAmor]

You must put the complete path:

eg.

"C:\Users\damor\Desktop\SkjKa.xlsm"

 

[Wicked_]

Aha. That actually worked.

How can i combine this with Environ?
This is going to be on multiple machines / users. So instead of C:\Users\damor\Desktop\SkjKa.xlsm, can i do something like C:\Users\Environ$("USERPROFILE")\Desktop\SkjKa.xlsm ?

 

[DanteAmor]

Try:

    Dim wDesk As String, wFile As String
    On Error Resume Next
    wDesk = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    wFile = wDesk & "\" & "SkjKa.xlsm"

 

[Tetra201]

... How can i combine this with Environ?..

Try

 Environ("USERPROFILE")[COLOR=#333333][/COLOR] & "[COLOR=#333333]\Desktop\[/COLOR][COLOR=#333333][COLOR=#333333]SkjKa.xlsm"[/COLOR][/COLOR]

 

[Wicked_]

That was almost perfect

The only "issue" i had, when opening SkjKa, was when i closed the UserForm 3, the "welcome" userform popped up again. Like it did both "then" and "else"

Might be my implentation of the code, not sure:

Sub CFF()
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")


Dim wDesk As String, wFile As String
On Error Resume Next
wDesk = CreateObject("WScript.Shell").SpecialFolders("Desktop")
wFile = wDesk & "" & "SkjKa.xlsm"




UserForm3.Show

Welcome.Show


End Sub

 

[Wicked_]

Try

 Environ("USERPROFILE") & "[COLOR=#333333]\Desktop\[/COLOR][COLOR=#333333][COLOR=#333333]SkjKa.xlsm"[/COLOR][/COLOR]

Pefect!. Works like a charm!.

Il try on different computers and users, to be sure as well. But so far, so good

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.