我真的很挣扎,任何帮助将不胜感激。
我需要一些代码来遍历文件夹中的每个文件并将其保存到数据库中,以便以后可以将其拉出并显示。我还没有到显示部分,哈哈,仍在尝试获取数据库中的文件。
到目前为止,我遇到的是给我一个错误
Value of type '1-dimensional array of Byte' cannot be converted to 'String'.
数据库中的所有字段都nvarchar(MAX)
Dim dir As New System.IO.DirectoryInfo("C:UsersWillDesktopSUBARU")
For Each f As System.IO.FileInfo In dir.GetFiles("*.*")
Using db As New FileStoreAppDBEntities
Dim NewFile As New StoredFile
NewFile.FileName = f.Name
NewFile.FileSize = f.Length
'got trouble here
Dim ImageData As Byte() = System.IO.File.ReadAllBytes(f.FullName)
NewFile.FileContent = ImageData
'
NewFile.FileType = f.Extension
db.StoredFiles.AddObject(NewFile)
db.SaveChanges()
End Using
Next
也许我做错了这一切?
非常感谢您的帮助。
--编辑
这似乎做到了!
For Each f As System.IO.FileInfo In dir.GetFiles("*.*")
Using db As New FileStoreAppDBEntities
Dim NewFile As New StoredFile
NewFile.FileName = f.Name
NewFile.FileSize = f.Length
Dim filename As String = f.FullName
NewFile.FileContent = System.IO.File.ReadAllBytes(filename)
NewFile.FileType = f.Extension.ToLower
db.StoredFiles.AddObject(NewFile)
db.SaveChanges()
End Using
Next
不确定性能,我认为这可能会将文件放在内存中然后发送而不是流式传输?
要检索文件:
Using db As New FileStoreAppDBEntities
Dim IDofFile As Integer = 31
Dim getFile = (From files In db.StoredFiles Where files.FileID = IDofFile Select files).SingleOrDefault
'getFile.FileName eg. mydocument.txt
System.IO.File.WriteAllBytes("C:LocationToSaveTo" & getFile.FileName, getFile.FileContent)
End Using
收到非常大的文件System.OutOfMemoryException
错误不过,非常适合较小的文件...
也许可以将文件分块?
您的文件是文本文件吗?如果是这样,则不应将它们读取为二进制数据,而应将其读取为文本数据。像这样的东西(对不起,它是 C#,但它应该很容易转换为 VB.NET):
using(StreamReader textFile = new StreamReader(path))
{
NewFile.FileContent = textFile.ReadToEnd();
}
如果文件是二进制文件,那么您不希望将它们作为字符串存储在数据库中,而是可能作为变量存储。
这似乎做到了!
For Each f As System.IO.FileInfo In dir.GetFiles("*.*")
Using db As New FileStoreAppDBEntities
Dim NewFile As New StoredFile
NewFile.FileName = f.Name
NewFile.FileSize = f.Length
Dim filename As String = f.FullName
NewFile.FileContent = System.IO.File.ReadAllBytes(filename)
NewFile.FileType = f.Extension.ToLower
db.StoredFiles.AddObject(NewFile)
db.SaveChanges()
End Using
Next
不确定性能,我认为这可能会将文件放在内存中然后发送而不是流式传输?
要检索文件:
Using db As New FileStoreAppDBEntities
Dim IDofFile As Integer = 31
Dim getFile = (From files In db.StoredFiles Where files.FileID = IDofFile Select files).SingleOrDefault
'getFile.FileName eg. mydocument.txt
System.IO.File.WriteAllBytes("C:LocationToSaveTo" & getFile.FileName, getFile.FileContent)
End Using
对于非常大的文件系统出现错误。内存不足异常 不过,对于较小的文件可以完美地工作...