VBS 動態數組

'動態數組
Redim Preserve sqlAry(0)
sqlAry(0)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810090000_201810151739]"
Redim Preserve sqlAry(1)
sqlAry(1)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810160000_201810221717]"
Redim Preserve sqlAry(1)
sqlAry(2)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201810230000_201810291806]"
Redim Preserve sqlAry(1)
sqlAry(3)="EXEC sp_detach_db [SERVER1_OS(1)_ALG_201811060000_201811091545]"
Dim dbCount
dbCount = UBound(sqlAry)      '數組元素最大標準
'釋放佔用內存
Erase sqlAry