Renaming File 1

[SeaRay]

When I execute this command, I get an error that says it can't find file. It hi-lites the "Name strFileName As "Credit.txt" line. What did I do wrong?

Private Sub Command1_Click()

Dim strFileName As String
strFileName = Dir$("C:\~Master Files\SSM\001 Crday_*.001&quot
If strFileName <> &quot;&quot; Then
Name strFileName As &quot;Credit.txt&quot;
End If

End Sub

Thanks, Rick Ruscin

 

[JohnYingling]

You need the full path and file name
Name &quot;C:\~Master Files\SSM\&quot; & strFileName _
&quot;C:\~Master Files\SSM\&quot; & &quot;Credit.txt&quot;

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript