Rename a Document by textbox value via VBA

Hello everyone, What I am trying to accomplish is rename a document from textbox value, both file source path and destination path are stored in two separate textboxes called Text50 and Text59, I do understand the Name function, but it seems only works if I spell out the full path, can I use my textbox as a variable in VBA?


Thanks a lot for the help

Yes, you can reference your textbox's from VBA code.

First, I highly recommend changing the default names used form control s to something more meaningful. Especially if you are going to reference them in code.

Example:
Text50 would renamed to txtDirectoryPath
Text59 would be renamed to txtFileName



If the code is behind the form (in the form's code module) you can use:

Example

Code:

---

Dim strFullPath as string

strFullPath  = Me.txtDirectoryPath & "\" & Me.txtFileName

---

Hello HiTechCoach,
Thanks for the reply, and the suggestion.
I renamed two textboxes to sourFullPath and destFullPath (both textbox already include the whole path of the file and the file name together) So here is my code:

Code:

---

Dim strFullPathSour As String
 Dim strFullPathDest As String
 strFullPathSour = Me.sourFullPath
 strFullPathDest = Me.destFullPath
 Name strFullPathSour As strFullPathDest

---

But it gives me Run-time error '5', Invalid procedure call or argument
Do you have any suggestion for what causes that.

Thanks

TIP: No need to dim the variables and assign the variables.

You can use:

Code:

---

Name Me.sourFullPath As Me.destFullPath

---

Name only can change folders on the same drive.



Is the destination folder on the same drive?

Quote:

---

Originally Posted by HiTechCoach

TIP: No need to dim the variables and assign the variables.

You can use:

Code:

---

Name Me.sourFullPath As Me.destFullPath

---

Name only can change folders on the same drive.



Is the destination folder on the same drive?

---

Yes they are on the same drive.

Here are some potential issues to consider:

Does the destination folder already exist?

Are you attempting to over-write an existing file in the destination folder?

Is the source file opened in another application?

Doe you have any objects (a control or field in the record source) on the form with the name "Name"?

As mentioned there are some limitations on the Name function...

Personally I use a custom MoveFile function for renaming

Works similarly, just pass complete paths to both variables.

Code:

---

Public Function MoveFile(OldLocation as string, NewLocation as string) as variant'Late binding to File Scripting object
Dim FSO  As Object
Set FSO = CreateObject("Scripting.FileSystemObject")


if FSO.FileExists(OldLocation) then
        FSO.MoveFile OldLocation, NewLocation
       
        'Check if move succeded and return boolean
        If FSO.FileExists(NewLocation) Then
                Return True
        else
                Return False
        end if
else
        'Failed to move file, return text explanation
        Return "File Does not exist"
end if


end function

---