Edit Hyperlink by removing a part of the link and adding the link

[thescottsman92]

Hi All

I have been stuck on this for a while now.



I have a file in a certain location. What I want to do is copy the file into a new location that is similar to the old location but not the same. This location will also change everytime there is a different folder.

I have managed to find a way of locating the parent folder such as
s:\test\test2\drawing

What I want is to copy the file on the click of a button to something like
s:\test\test2\archive

I hope this isn't too confusing

Grateful of all your help

thanks

[June7]

Do you want to edit the hyperlink value in table field or do you want to physically copy file?

A hyperlink is just a text string. Review http://www.allenbrowne.com/casu-09.html
Should be able to use Replace() function.
Can use HyperlinkPart function to reference parts of hyperlink http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

[thescottsman92]

Hi

Many thanks for the reply

I think the replace function would work, however the problem is that the text I want to replace is in another textbox, would this be possible to do. Currently I have:

Dim lresult As String
lresult = Replace([Folder Path], "01 3D MODELS", "Archive")

In the afterupdate event of the textbox I want the new name to appear in

Many tyanks for all your help

[June7]

Don't understand. You want to enter something in a textbox and in the textbox AfterUpdate event change the value of another textbox?

[thescottsman92]

sorry I have a textbox which contains a link. This textbox shows the link of a file from a table.

The text displayed in that textbox will be the link s:\test\test2\01 3D MODELS

In a different textbox I want to replace the "01 3D MODELS" to archive.

The reason why I need to have it as a textbox is because I have thousands of files and lots of folders in different locations does this help?

thanks

[June7]

Maybe:

Sub textboxname_AfterUpdate()
Me.othertextboxname = Replace([Folder Path], "01 3D MODELS", "Archive")
End Sub

[thescottsman92]

Hi

I have entered this code

Private Sub ParentFolder_AfterUpdate()
Me.NewArchive = Replace(Me.ParentFolder, "01 3D MODELS", "Archive")
End Sub

It is not working 100% the file name is the same and does nave the text replaced anyideas?

thank you so much for your help

[thescottsman92]

sorry my mistake I mistyped something

itsw now working

thanks for your help