home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / NIVB_SRC / NWTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-02  |  245 b   |  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.