display first 6 characters of a filename?

[Guest_imported]

I'm a beginning programmer trying to learn VBScript.
I need to grab a file from a folder and display only the first 6 characters of the filename. Example:

folder = C:\temp
filename = 100452ATestFile.txt
want to display in a message box: 100452

Not sure of how to do this. Any help would be appreciated.

 

[JohnYingling]

folder = C:\temp
filename = "100452ATestFile.txt"
MsgBox Left(filename,6)
'OR
'MsgBox Mid(filename,1,6)

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[JohnYingling]

folder = "C:\temp"
filename = "100452ATestFile.txt"
MsgBox Left(filename,6)
'OR
'MsgBox Mid(filename,1,6)

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[Guest_imported]

Great help! How would I create a folder with the first six characters of the filename?
look in the directory and get file:
100452ATestFile.txt

create a folder using the first 6 characters of the filename:

FOLDER NAME would be 100452

 

[AncientTiger]

Try this:

'Get the filename

filename = "100452ATestFile.txt"
newfoldername = left(filename,6) 'Takes the first 6 characters off the string

'Create a new folder

Dim fileobj,newfolder
Set fileobj = Server.CreateObject ("Scripting.FileSystemObject&quot ' Creates a file sytem object
Set newfolder = fileobj.CreateFolder(newfoldername) ' the file system object creates a new folder using the string info stored in "newfoldername"




you can optionally specify a file path where you want the folder created:

'Before the Dim fileobj,newfolder statement, put this
newfoldername = "c:\program files\myfolders\"+newfoldername


Hope this helps
AT