• Home
 · 
• String Manipulation
 · 
• To return only the drive letter. Just paste this code into your Module form.

To return only the drive letter. Just paste this code into your Module form.

To return only the drive letter. Just paste this code into your Module form.

Rate To return only the drive letter. Just paste this code into your Module form.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'* Start Comment Block  ***********************************
'* Generated using VB 3.0 ToolBar
'* Author: Todd Wayman
'* Date: Jan, 27, 2003
'* Version: 1.00.2003
'* Copyright © 2003 Todd Wayman; All rights reserved.
'* Function Title: Return_Drive
' *************************************************************
'*
'* Disclaimer:
'*
'* This software is provided AS IS without warranty of any kind, either
'* express or implied. This includes without limitation the fitness for
'* a particular purpose or application and any warranties of merchantability.
'* The author shall not be liable for any damage, whether direct, indirect,
'* special, or consequential, arising from a failure of this software or
'* accompanying files to operate in a manner desired by the user. The author
'* shall not be liable for any damage to data or property which may be
'* caused directly or indirectly by the use of this program.
'* By using and/or installing this software YOU assume all responsibility.
'*
'* End Disclaimer
'*
'* Comments:
'* Returns the current drive as a string, letter only.  Comes in handy for getting only drive information
'* with out all the path information.  Easy to use.
'*
'*Symtax: X = Return_Drive()  where X is a String for Testing
'*
'* End Comment Block  *************************************


Dim X

X = CurDir$
Return_Drive = Mid$(X, 1, 1)

End Function