Как получить и загрузить файлы сервера (File.Exists и URL)
У меня есть таблица базы данных, где пользователь помечает файлы для загрузки. Впоследствии я просматриваю эту таблицу и мне нужно создать fileList для передачи загрузчику ActiveX. Моя процедура работает локально и на сервере только для первого файла. Я знаю, что моя логика должна быть плохой, но я не могу ее найти. Все эти файлы всегда находятся в одном каталоге сервера, который выглядит следующим образом:D: \ Inetpub \ виртуальных доменов \ WebSite.com \ sessionVideos \»
Sub (GetFileList)
Dim dtVideosSelected As New DataTable
Dim drVideosSelected As New DataRow
Dim strSourceDirectory As String = "sessionVideos/"
Dim strServerBasePath As String = Server.MapPath(strSourceFileDirectory)
Dim strFileName As String
Dim fileInfo As System.IO.FileInfo
Dim i As Int16
Response.Clear()
Response.ContentType = "text/plain"
Response.Charset = "UTF-8"
i = 0
Do While i < dt VideosSelected.Rows.Count
drVideosSelected = dtVideosSelected.Rows(i)
strFileName = drVideosSelected("VID_FileName")
If File.Exists(strServerbasePath & strFileName)
fileInfo = New System.IO.FileInfo(strServerbasePath & strFileName)
Response.Write("*/* | " & fileInfo.Length & " | " & fileInfo.Name & " | ")
Response.Write(EncodeFileName(strSourceFileDirectory & fileInfo.Name) & vbCr
& vbLf)
End If
i += 1
Loop
Response.End()
Response.Flush()
End Sub
Private Function EncodeFileName(ByVal fullPath As String) As String
Return Server.UrlEncode(fullPath).Replace("+", "%20").Replace("%2f", "/")
End Function
Я пробовал много разных вещей без успеха.
Джеймс