Возможно, это могло бы работать:
String RelativePath = AbsolutePath.Replace(Request.ServerVariables["APPL_PHYSICAL_PATH"], String.Empty);
я использую c#, но мог быть адаптирован к vb.
for index, s in enumerate(stocks_list): print index, s