VB6 - Reteiving folder name as variable.

Frapple · 5 Aug 2008 at 12:21

Google and black book is no help.

Trying to get a folder name (.exe will be within this folder, in 2 sub folders i.e. Z:/Contracts/THISFOLDERHERE/05 Mail/05-08-2008/Application.exe) into a label.

Any clues?

voodooflux · 5 Aug 2008 at 12:32

Something like this (untested):

Code:

Dim pathElements As String()
Dim path As String

path = "Z:/Contracts/THISFOLDERHERE/05 Mail/05-08-2008/Application.exe"

pathElements = Split(path, "/")

label.Text = pathElements(pathElements.Length - 4)

You may need to adjust the seperator between / or \ depending on where you get the path from, and this assumes that the directory name you're after is in a known position in the hierarchy above the exe.

Frapple · 5 Aug 2008 at 12:38

The path won't be static, is there any way of changing "path = ..." to the applications path?

But otherwise it looks like it will work, top notch!

voodooflux · 5 Aug 2008 at 12:49

Frapple said:
The path won't be static, is there any way of changing "path = ..." to the applications path?

Yep, just use App.Path so it becomes...

pathElements = Split(App.Path, "\")

Frapple · 5 Aug 2008 at 12:57

Aye, just found that lol

Code:

pathElements = Split(App.path, "\")

Label_date.Caption = pathElements(pathElements.length - 4)

Getting "Invalid Qualifier" on the pathElements.length, label_date.caption is right is it not?

Edit: Assuming it's because the .exe isn't compiled yet, and not in the right folder?

SimonCHere · 5 Aug 2008 at 13:14

You might want to check that pathElements.length is > 4 before you try to take 4 away from it.

Simon

voodooflux · 5 Aug 2008 at 13:18

SimonCHere said:
You might want to check that pathElements.length is > 4 before you try to take 4 away from it.

WHS

Frapple · 5 Aug 2008 at 15:26

Got that working through Left$ and Right$ & and IF statement , Split wasn't playing ball.

Code:

myRecSet.Open "mail_info", MyConnObj, adOpenKeyset
myRecSet.AddNew
myRecSet.Fields("name").Value = MyName
myRecSet.Fields("mail_date").Value = MyDateFolder
myRecSet.Fields("contract").Value = MyContract
myRecSet.Fields("read_date").Value = MyToday
myRecSet.Update

MyConnObj.Close

Erroring on mrRecSet.Addnew, does not allow new data or wrong locktype.

SimonCHere · 5 Aug 2008 at 15:56

Isn't the default lock type adLockReadOnly?

You need
adLockPessimistic (2)
OR
adLockOptimistic (3)

Simon

Frapple · 5 Aug 2008 at 18:07

Nice one!

All fine and working now, just some GUI tuning needed.

a Msgbox is showing twice for some reason, will paste code tomorrow when back in work.