create a new directory and then delete the original one

[sdel_nevo]

Hi All



i have this code that creates the required folder structure when a form is opened

If Len(Dir(DLookup("FilePath", "Settings", "ID = 1") & "\Assets" & "\" & Me.Type & "\" & Me.AssetName, vbDirectory)) = 0 Then
MkDir (DLookup("FilePath", "Settings", "ID = 1")) & "\Assets" & "\" & Me.Type & "\" & Me.AssetName
End If


this works great, but what i really need to do now is this

if the asset name "me.AssetName" changes i would like a new folder created "This i can do with the above code" and the original folder name deleted. "this i can't get my head around"

so for example

i create a new asset called Server 1
a new folder is automatically created on the network called "server 1"

if this server is renamed to server 2
create a new folder called "server 2 " then delete the original folder called "server 1"

any help would be great.

Many Thanks

Steve

[thebigthing313]

You can try something like this:

On the AfterUpdate event of the AssetName field, search for the Directory using Me.AssetName.OldValue (this would be "Server 1").
Then use RmDir to remove that directory
Then use MkDir to create the new directory.

Beware though, RmDir will cause an error if the directory contains any files. If you want to delete the files then you can include these steps somewhere
ChDir to old directory
Kill("*.*")

[sdel_nevo]

Hi thebigthing313

brill many thanks for the help

thats great

Steve