home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / VBasic / AN307X.ZIP / NWTEST.ZIP / 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.