by Vicky Jadhav (5 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 12th July 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open a file and print in the debug window
Public sub Form_Load()
Dim fso As New FileSystemObject
Dim strBaseName As String
strBaseName = fso.GetBaseName("D:\Test.txt")
Debug.Print strBaseName
End Sub
'This program prints Test in the debug window