home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
nivb_src
/
nwtest.bas
< prev
next >
Wrap
BASIC Source File
|
1993-06-02
|
245b
|
10 lines
Function GetDefaultFileServerName () As String
Dim fileServerName As String * 48
connID% = GetDefaultConnectionID()
GetFileServerName connID%, fileServerName
GetDefaultFileServerName = fileServerName
End Function