home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / nivb_src / nwtest.bas < prev    next >
BASIC Source File  |  1993-06-02  |  245b  |  10 lines

  1. Function GetDefaultFileServerName () As String
  2.     Dim fileServerName As String * 48
  3.     
  4.     connID% = GetDefaultConnectionID()
  5.     GetFileServerName connID%, fileServerName
  6.  
  7.     GetDefaultFileServerName = fileServerName
  8. End Function
  9.  
  10.