How To Use Asterix In Partial File Name

[DMT Dave]

Hi Guy's i'm lost again, how do i use the asterix in a partial file Name again ??

Trying find if a file called : table_ and *.* .xlsx exists in Downloads folder

If it does then rename to another folder

I am getting bad file name, when hover over strdwnFile, this is blank as it can't find file name: table_ then "*"

Dim strdwnFile As String, strdwnPath As String, strNewFile As String, strNewPath As String

strdwnPath = Environ("USERPROFILE") & "\Downloads\"
strNewPath = "T:\DMT Ltd\Fuel Price Sheets\"


strNewFile = "Fuel Prices " & Format(Now(), "dd-mmm-yyyy") & ".xlsx"


strdwnFile = Dir(strdwnPath & "table_*.xlsx")




    If Len(Dir(strdwnPath & strdwnFile)) > 0 Then
        Name strdwnPath & strdwnFile As strNewPath & strNewFile
        Kill strdwnPath & strdwnFile
    End If
    
    If Len(Dir(strdwnPath & strdwnFile)) = 0 Then
        MsgBox ("Your File Doesn't Exist In Downloads, It Requires Downloading"), vbInformation + vbOKOnly, "NO FILE IN DOWNLOADS"
    End If


    Application.FollowHyperlink strNewPath

Again, thank you guy's for your help

[Minty]

I'm sure we've been down this route before, I don't think you can rely on a wild card in a DIR command?
Try experimenting with it in the immediate window?

I think it always returns the first file it finds from memory?

[Gicu]

@Dave - what do you get with this modified code:

Dim strdwnFile As String, strdwnPath As String, strNewFile As String, strNewPath As String


strdwnPath = Environ("USERPROFILE") & "\Downloads\"
strNewPath = "T:\DMT Ltd\Fuel Price Sheets\"
strNewFile = "Fuel Prices " & Format(Now(), "dd-mmm-yyyy") & ".xlsx


strdwnFile = Dir(strdwnPath & "table_*.xlsx")


If strdwnFile <> "" Then
   Name strdwnPath & strdwnFile As strNewPath & strNewFile
   Kill strdwnPath & strdwnFile
Else
	MsgBox ("Your File Doesn't Exist In Downloads, It Requires Downloading"), vbInformation + vbOKOnly, "NO FILE IN DOWNLOADS"
End If
    
Application.FollowHyperlink strNewPath

Cheers,

[DMT Dave]

Bingo Vlad, thank you and Minty, added a check if file already saved, the only other thing I am not understanding after testing a few times, i have commented out the Kill statement, but the file in downloads still deletes ?

It works though but if i bypass kill, is there something i am missing here ?

Private Sub cmdDownload_Click()

    
Dim strdwnFile As String, strdwnPath As String, strNewFile As String, strNewPath As String




strdwnPath = Environ("USERPROFILE") & "\Downloads\"
strNewPath = "T:\DMT Ltd\Fuel Price Sheets\"
strNewFile = "Fuel Prices " & Format(Now(), "dd-mmm-yyyy") & ".xlsx"




strdwnFile = Dir(strdwnPath & "table_*.xlsx")


If Len(Dir(strNewPath & strNewFile)) > 0 Then
    
    MsgBox ("You Already Have A File Called: " & vbNewLine & vbNewLine & _
        "In: " & strNewPath & vbNewLine & vbNewLine & _
        "Called: " & strNewFile), vbInformation + vbOKOnly, "FILE EXISTS"
                                
        Exit Sub
        
End If


If Len(Dir(strNewPath & strNewFile)) = 0 Then


    If strdwnFile <> "" Then
        Name strdwnPath & strdwnFile As strNewPath & strNewFile
        'Kill strdwnPath & strdwnFile
    
    Else
        
        MsgBox ("Your File Doesn't Exist In Downloads, It Requires Downloading"), vbInformation + vbOKOnly, "NO FILE IN DOWNLOADS"
    
    End If
    
End If


Application.FollowHyperlink strNewPath


Debug.Print strdwnFile




End Sub

[Micron]

If you care to know, it's an asterisk. If not, just ignore me.

[Gicu]

@Dave - the Name command renames (or moves the file) so there isn't anything left to kill......

[DMT Dave]

Vlad, thank you, if there was an enemy in this crazy world it's Dave vs Dave

I forget where i use similar code in the past to look back on, copy it, re dim / rename to suit new procedures

Frustratingly I have a table called tblCode with fields, this has fields called: ID, Subject, Code (set as long Text), Notes

I am meant to add a Subject, Paste Code that works into Code Field and a brief explanation to what the code does

Do I use it ? NO not like I should, i guess in the haste of crazy day's, is the reason

WGM mentioned a while ago to go on a time management course, i think it's a fair comment

I just need to find a brain reset course too

truly, thank you for helping and being patient

[Welshgasman]

WGM mentioned a while ago to go on a time management course, i think it's a fair comment

I do not remember that?, or see where it could help you?

[DMT Dave]

Yes you mentioned you once went on a time management course, please forgive me if i am wrong, sure you did though

[Micron]

Seemed familiar to me. Not too hard to find but I'm not sure what the meaning behind the post was

https://www.accessforums.net/showthr...682#post484682

[DMT Dave]

@micron, yes that was the one, I'm always dragged from pillar to post, this stops concentration and completing tasks!!

[Welshgasman]

Ok, I see where that was used in the fact you were complaining you were getting pulled away from your work.
However my point there was whilst you might manage your time effectively, that was just you not your team members who might need help. So I would always stop to help, and get told off for doing so.

In fact when I worked at Lloyds bank, a colleague was asked why they took so long on a case. The reason was they were helping one of the permanent staff, and there was no provision to allocate time against anything other than the cases you were assigned.