[RESOLVED] space path location

[matrik02]

How to tell the users with message box that the path location having a space?

rlyr.file = Dir1.Path & "\" & File1.List(File1.ListIndex)

[Hack]

What?

I don't understand the question.

[matrik02]

I have path location like this

C:\Database\BOUNDARIES\TKSSBlock C

This path location having an empty space between text. How to pop up a message box to tell user that, "no empty space is allowed in the path location, please rename the folder."

[reinholdmesner]

If InStr(1, Dir1.Path, " ") > 0 Then
    MsgBox "no empty space is allowed in the path location, please rename the folder.", vbExclamation, "Error"
End If

[Hack]

Ah, gotcha.

Does your program allow them to make the folder in the first place or is this a folder they make themselves, and then in your program, select?

[matrik02]

Ah, gotcha.

this a folder they make themselves, and then in your program, select?

Yes, the make the folder and I select the folder. I use this code to select the folder Dir1.Path & "\" & File1.List(File1.ListIndex)

[Hack]

Then before you make the folder check for a space. If there is one, don't make it.

[matrik02]

Thank you, I already solve this problem

[Hack]

Thank you, I already solve this problem

What did you do?

[matrik02]

What did you do?

Used reinholdmesne code, Actually I am not create the folder, the folder was create manually, I just select the folder from VB.

If InStr(1, Dir1.Path, " ") > 0 Then
    MsgBox "no empty space is allowed in the path location, please rename the folder.", vbExclamation, "Error"
End If