string extraction

• • Reply

  14 years ago

  by harish139

  a

  , Grenada

  Joined 14 years ago
  hi,
  i have  strings of this kind "E:\new.txt","E:\temp\abcd.txt","E:\temp\cur\sss.txt" is it possible to extract only file names from those strings like new.txt,abcd.txt,sss.txt like this.
  Thank u in advance
  
  
  Report abuse
• • Reply

  14 years ago

  by sync_or_swim

  Rob Bickel

  S. Wales, United Kingdom

  Joined 15 years ago
  All you have to do is break the string up using split using the backslash as the splitter.  The last position of the array now contains the filename:
  
  Private Sub Command1_Click()
  Dim strSplitPath() As String
  Dim strPathName As String
  strPathName = "E:\temp\cur\sss.txt"
  strSplitPath = Split(strPathName, "\")
  Dim strFileName As String
  strFileName = strSplitPath(UBound(strSplitPath))
  Label1.Caption = strFileName
  End Sub
  
  You will need to put some error checking in to check that the filename contains a backslash using InStr.
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  14 years ago

  by sallu_shan

  Arsalan Tamiz

  Karachi, Pakistan

  Joined 15 years ago
  It is better to use File System Object (FSO) for this purpose
  Report abuse