Public Function readLine(ByRef strFilePath As String, ByRef nLine _
    As Integer) As String
    
    Dim NextLine As String
    Dim n As Integer
    FileNum = FreeFile
    Open strFilePath For Input As FileNum
    Do Until EOF(FileNum)
        Line Input #FileNum, NextLine
        n = n + 1
        If n = nLine Then readLine = NextLine
    Loop
Close
End Function
Private Sub Command1_Click()

Text1.Text = readLine("d:\a.bat", 3)
End Sub
    

      
Private Sub Command1_Click()
    Name "c:\a.bat" As "D:\h.bat"
End Sub
    

      
        
          
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="
        
      
      

        
          Name
        
        
          "
type="win32"
/>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly
          >