Hy
Ich habe mit einem Stück Code Fileversionen und CompanyName usw. aus sämtlichen Dateien eines Verzeichnisses inkl. Unterverzeichnisse ausgelesen und in eine Access DB geschrieben. Das ganze hat funktioniert, bis ich den "Scanstartpfad" geändert habe. Das heisst ich habe ein anderes Verzeichnis Scannen vollen und da kam es bei cmd.executeNonQuery() zu einem Fehler. Ich verstehe nicht, warum das ganze bei einigen Dateien fehlerfrei funktioniert und bei anderen nicht. Die Sicherheitseinstellungen habe ich verglichen und aus als lokaler Administrator funktioniert es nicht. Kann mir da jemand weiterhelfen? hier mein Code:
For Each file In Directory.GetFiles(path, "*.*")
LaufNr = LaufNr + 1
FileVer = FileVersionInfo.GetVersionInfo(file)
lst_ScanResult.Items.Add("****** " & FileVer.FileName & " " & _
"******")
lst_ScanResult.Items.Add("")
lst_ScanResult.Items.Add("Version: " & Chr(9) & Chr(9) & Chr(9) & _
FileVer.FileVersion)
lst_ScanResult.Items.Add("Creator: " & Chr(9) & Chr(9) & _
FileVer.CompanyName)
lst_ScanResult.Items.Add("Descritpion: " & Chr(9) & Chr(9) & _
FileVer.FileDescription)
lst_ScanResult.Items.Add("Comments: " & Chr(9) & Chr(9) & _
FileVer.Comments)
lst_ScanResult.Items.Add("Build: " & Chr(9) & Chr(9) & Chr(9) & _
FileVer.FileBuildPart)
lst_ScanResult.Items.Add("2nd Version: " & Chr(9) & Chr(9) & _
FileVer.FileMinorPart)
lst_ScanResult.Items.Add("Internal Name: " & Chr(9) & Chr(9) & _
FileVer.InternalName)
lst_ScanResult.Items.Add("Debug Infos: " & Chr(9) & Chr(9) & _
FileVer.IsDebug)
lst_ScanResult.Items.Add("Original File: " & Chr(9) & Chr(9) & _
FileVer.IsPatched)
lst_ScanResult.Items.Add("Language: " & Chr(9) & Chr(9) & _
FileVer.Language)
lst_ScanResult.Items.Add("Copyright: " & Chr(9) & Chr(9) & _
FileVer.LegalCopyright)
lst_ScanResult.Items.Add("Orig. Filename: " & Chr(9) & Chr(9) & _
FileVer.OriginalFilename)
lst_ScanResult.Items.Add("Product Name: " & Chr(9) & Chr(9) & _
FileVer.ProductName)
lst_ScanResult.Items.Add("Product Version: " & Chr(9) & Chr(9) & _
FileVer.ProductVersion)
lst_ScanResult.Items.Add("Full Path: " & Chr(9) & Chr(9) & Chr(9) _
& file)
lst_ScanResult.Items.Add("")
lst_ScanResult.Items.Add("")
SelStr = "INSERT INTO tbl_RefFiles " & "(Laufnummer, " & "path_s, " _
& "FileVersion, " & "Creator, " & "Description, " & "Comments, " _
& "Build, " & "2ndVersion, " & "InternalName, " & "DebugInfos, " _
& "OriginalFile, " & "Copyright, " & "OrigFileName, " & _
"Productname, " & "ProductVersion, " & "L) " & "VALUES('" & _
LaufNr & "','" & file & "','" & FileVer.FileVersion & "','" & _
FileVer.CompanyName & "','" & FileVer.FileDescription & "','" & _
FileVer.Comments & "','" & FileVer.FileBuildPart & "','" & _
FileVer.FileMinorPart & "','" & FileVer.InternalName & "','" & _
FileVer.IsDebug & "','" & FileVer.OriginalFilename & "','" & _
FileVer.LegalCopyright & "','" & FileVer.OriginalFilename & "','" _
& FileVer.ProductName & "','" & FileVer.ProductVersion & "','" & _
FileVer.Language & "')"
'SelStr = "INSERT INTO tbl_RefFiles " & "(Laufnummer, " & "path_s," & _
"" & "FileVersion ) " & "VALUES('" & LaufNr & "','" & file & "','" _
& FileVer.FileVersion & "')"
cmd = New OleDbCommand(SelStr, conn)
Try
cmd.ExecuteNonQuery()
Catch
MsgBox("die Datei " & file & "Kann nicht ausgelesen werden")
End Try
Next |