VBCE.com - Code Sample: FixDirString Function

Dev Corner

Sample Code

Controls

Workarounds

Tips & Tricks

Q & A

Forums

Goodies

Downloads

Software

Bookstore

General

Home

What's New

General Info

Misc. Info

News Worthy

News

Articles

Editorials

KB Articles

Reviews

Awards

Miscellaneous

Web Links

Partners

Feedback

Advertising

<% On Error Resume Next SiteStats() %>

Sponsors

More...

Code Sample: FixDirString Function

Public Function FixDirString(DirName)
    '=============================================
    'PURPOSE: Adds a trailing "\" to the directory
    '         if it is needed
    'PARAMS: DirName Directory name
    'RETURNS: Directory name with trailing "\"
    '=============================================
    Dim sTemp
    sTemp = DirName
    If Right(sTemp, 1) <> "\" Then
        FixDirString = sTemp & "\"
    Else
        FixDirString = sTemp
    End If
End Function


	Unless otherwise noted, all information on VBCE.com is Copyright 1998 - 2002 Windows, Windows CE, and Visual Basic are trademarks of the Microsoft Corporation. VBCE.com is not responsible for content on external sites. Send all feedback to webmaster@vbce.com Webmasters - feel free to link to