Solved problem with Dir function (1 Viewer)

[poppajim713]

I've tried using all text within the Dir function like sFile = "C:\Users\file.txt" which works, but trying
Dim sTxt As String
sTxt = "file.txt"
sFile = "C:\Users\" & sTxt doesn't work. The file is not found.

 

[Jon]

Welcome to the forums! We are the most active Microsoft Access community on the internet by far, with posts going back over 20 years!

To get started, I highly recommend you read the post below. It contains important information for all new users to this forum.

https://www.access-programmers.co.uk/forums/threads/new-member-read-me-first.223250/

We look forward to having you around here, learning stuff and having fun!

 

[arnelgp]

maybe use:

what if you use:

sFile =Environ("Userprofile") & "\" & sTxt
Debug.Print Dir$(sFile)

 

[poppajim713]

I'll give it a go. Thanks

 

[Gasman]

And what do you get if you debug.print sFile?

 

[poppajim713]

I'll give it a go. Thanks

And what do you get if you debug.print sFile?

Nothing

 

[Gasman]

Nothing

Well that cannot be rght?, not if it starts with "C:\Users\" ?

 

[poppajim713]

Well that cannot be right?, not if it starts with "C:\Users\" ?

This is exactly what I tested.

sTxt = "12-1-2022.mdb"
sFile = Environ("Userprofile") & "\Backup\" & sTxt
Debug.Print sFile

nothing happens. Thanks anyway.

 

[Gasman]

You were looking at the Immediate window I hope?

 

[jdraw]

Just tested in immediate window (using A365/64 bit)
sTxt = "12-1-2022.mdb"
sFile = Environ("Userprofile") & "\Backup\" & sTxt
Debug.Print sFile

Result:
C:\Users\JP\Backup\12-1-2022.mdb

 

[poppajim713]

You were looking at the Immediate window I hope?

Yes

 

[poppajim713]

Just tested in immediate window (using A365/64 bit)
sTxt = "12-1-2022.mdb"
sFile = Environ("Userprofile") & "\Backup\" & sTxt
Debug.Print sFile

Result:
C:\Users\JP\Backup\12-1-2022.mdb

I did a bit of research. I think Environ started with Access 2007. I'm still using 2003.

 

[Gasman]

sFile = "C:\Users\" & sTxt

That should have least shown C:\Users\

 

[poppajim713]

That should have least shown C:\Users\

I tried some code that found a folder, but not a file in that folder

 

[poppajim713]

I tried some code that found a folder, but not a file in that folder

this is the code I tried. the first one the folder exist, but the second one the file doesn't exist.

   Dim FolderPath As String

    FolderPath = "C:\Users\smltu\Backup"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If

    If Dir(FolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist"

    Else
        MsgBox "Folder doesn't exist"
    End If
    
    Dim FilePath As String
    Dim TestStr As String

    FilePath = "C:\Users\smltu\Backup\12-1-2022.mdb"

    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        MsgBox "File doesn't exist"
    Else
        MsgBox "File exist"
    End If

 

[poppajim713]

this is the code I tried. the first one the folder exist, but the second one the file doesn't exist.

   Dim FolderPath As String

    FolderPath = "C:\Users\smltu\Backup"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If

    If Dir(FolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist"

    Else
        MsgBox "Folder doesn't exist"
    End If
   
    Dim FilePath As String
    Dim TestStr As String

    FilePath = "C:\Users\smltu\Backup\12-1-2022.mdb"

    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        MsgBox "File doesn't exist"
    Else
        MsgBox "File exist"
    End If

this is the code I tried. the first one the folder exist, but the second one the file doesn't exist.

   Dim FolderPath As String

    FolderPath = "C:\Users\smltu\Backup"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If

    If Dir(FolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist"

    Else
        MsgBox "Folder doesn't exist"
    End If
   
    Dim FilePath As String
    Dim TestStr As String

    FilePath = "C:\Users\smltu\Backup\12-1-2022.mdb"

    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        MsgBox "File doesn't exist"
    Else
        MsgBox "File exist"
    End If

I changed one line to this and it worked.

FilePath = "C:\Users\smltu\Backup\*.mdb"

 

[gemma-the-husky]

Are you sure there weren't any stray spaces in any of the strings causing the issues?

 

[poppajim713]

Are you sure there weren't any stray spaces in any of the strings causing the issues?

I'll look it over

 

[Gasman]

I'll look it over

Use Trim() and find out.

 

[poppajim713]

Use Trim() and find out.

I tried

 Kill Trim(FilePath)

to see if what I'd get. I got an error 53, file not found.