The following code allows relative paths too...

Code
#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN () AS LONG
      LOCAL MyPath AS STRING
      LOCAL iLevel AS INTEGER
MyPath = ".\Examples\Code\Folder1\Folder2"
      REPLACE ".\" WITH "" IN MyPath
      REPLACE "\\" WITH "" IN MyPath
      iLevel = PARSECOUNT(TRIM$(mypath$,"\"),"\")
MSGBOX STR$(iLevel)
END FUNCTION

The Captian
Today they call you "crazy". Tomorrow they call you "ahead of your time."
Global Skywatch Learn about Chemtrails - You're breathing them now!
OnlyTheBestHerbs.com World-class supplements
Mercury Talk Why you are sick.
OneUp Domains Domains, Hosting, Email
1-800-358-4278 (U.S. & Canada)