User's Manual

Real-world examples 291
If g_ekernel_remote_port = Then Exit Sub
’ build directory and file
Dim lcl_path As String
Dim lcl_file As String
’ start error recovery
On Error Resume Next: Err = 0
’ if specified drive is valid, try to toggle between C: drive and D: drive
Err = 0
Dim lcl_chk As Integer
lcl_chk = Len(Dir$(g_log_path, vbDirectory))
lcl_path = g_log_path
If Len(Dir$(lcl_path, vbDirectory)) = 0 Then
MkDir lcl_path
End If
lcl_chk = Len(Dir$(g_log_path, vbDirectory))
If ((Err = 52) Or (lcl_chk = 0)) Then
Select Case Left$(g_log_path, 3)
Case C:\
g_log_path = D:\ + Mid$(g_log_path, 4)
lab_log_path = & g_log_path
Case D:\
g_log_path = C:\ + Mid$(g_log_path, 4)
lab_log_path = & g_log_path
Case Else
g_log_path = C:\ + Mid$(g_log_path, 4)
lab_log_path = & g_log_path
End Select
End If
Err = 0
’ make D:\SOPHO Messenger@Net
lcl_path = g_log_path
If Len(Dir$(lcl_path, vbDirectory)) = 0 Then
MkDir lcl_path
End If
’ make D:\SOPHO Messenger@Net\log
lcl_path = lcl_path + \log
If Len(Dir$(lcl_path, vbDirectory)) = 0 Then
MkDir lcl_path
End If
’ make D:\SOPHO messenger@Net\log\02001_eAPI
lcl_path = lcl_path + \ + Format$(g_ekernel_remote_port, 00000) + _eAPI
If Len(Dir$(lcl_path, vbDirectory)) = 0 Then
MkDir lcl_path
End If
’ Kill log-files older then x days if g_LastLogFile not today
If Mid$(g_LastLogFile, 1, 8) <> Format$(Now, yyyymmdd) Then
eAPI_form - 8
KILL_OLD_LOGFILES lcl_path
End If
’ make 20001030.txt
lcl_file = Format$(Now, yyyymmdd) & .txt
Nortel Communication Server 1000
DECT Messenger Installation and Commissioning — Book 1
NN43120-301 02.01 4 June 2010
Copyright © 2003-2010 Nortel Networks. All Rights Reserved.
.