Datei kopieren, Zugriff verweigert

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    Datei kopieren, Zugriff verweigert

    Hey Leute!

    Ich progge momentan nen LogOn Screen Changer, und hab folgendes Problem:
    Also in der Form ist ne PictureBox, in der das Bild, was vorher in nem OpenFileDialog() ausgewählt wurde, angezeigt wird, oder halt falls noch nichts ausgewählt wurde, der akutelle Background.
    Damit das funktioniert muss das Bild ein JPEG sein und < 256 kB. Also hab ich ein If-Statement erstellt:

    VB.NET-Quellcode

    1. Dim picturesizeKB As Single = Math.Round(My.Computer.FileSystem.GetFileInfo(imagepath).Length / 1024, 2) 'Size in Bytes - Divided by 1024 -> KiloByte
    2. Dim filename As String = My.Computer.FileSystem.GetFileInfo(imagepath).Name 'Name of the file, i.e. "ABCDEFG.bmp"
    3. Dim fileformat As String = filename.Substring(filename.IndexOf(".") + 1) 'Locates the dot in the name and returns all chars behind it --> "bmp"
    5. If fileformat <> "jpg" And picturesizeKB > 256 Then
    6. MsgBox(info1, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Size and Format Exception") 'info1 is a String with the Error "Worng Fileformat and Size"
    8. If MsgBoxResult.Ok = 1 Then
    9. My.Computer.FileSystem.CopyFile(imagepath, destinationpath & "backgroundDefault.jpg", True) ' Copy, Rename, Convert File
    10. MsgBox("Modification successful" & vbCrLf & picturesizeKB & ps)
    11. End If
    13. ElseIf picturesizeKB > 256 Then
    14. ElseIf fileformat <> "jpg" Then
    15. Else
    16. End If


    Das ist zwar nur ein Ausschnitt, sollte aber denke ich ausreichen. Das Problem ist jetzt, dass das Prog stoppt an der Stelle, wo die Datei hinkopiert werden muss, mit der Begründung "Der Prozess kann nicht auf die Datei "C:\Users\*****\Desktop\backgroundDefault.jpg" zugreifen, da sie von einem anderen Prozess verwendet wird." Diese Meldung kommt aber nur, wenn die Datei bereits existiert :/
    Ich hoffe ihr könnt mir helfen, DANKE !
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    1.) Weg von My.Computer.FileSystem.*
    Ersatz:

    VB.NET-Quellcode

    1. Dim fi As New FileInfo("DeineDatei")
    2. '========= Dateiinfos =========
    3. Dim kb As Integer = CInt(fi.Lenght / 1024, 0) 'Größe in kb
    4. Dim fname As String = fi.Name 'Dateiname
    5. Dim fformat As String = fi.Extension.Replace(".", "") 'Erweiterung
    6. fi.CopyTo("Ziel", True) 'Kopieren nach "Ziel" (True, dass eine vorhandene Datei überschrieben wird)
    Grüße,
    Lukas

    Fragen über Themen im Forum per Konversation werden gelöscht und die Absender blockiert...

    Ich habs geändert, aber leider immer noch das gleiche Problem :/

    Also nochmal zum Verständnis:
    Das Bild an sich wird in einer PictureBox angezeigt, und wurde vorher in nem OpenFileDialog ausgewählt.
    Und wenn der Zielpfad bereits existiert, nur dann, kommt der Fehler :/

    VB.NET-Quellcode

    1. Dim fi As New IO.FileInfo(imagepath)
    2. Dim picturesize As Single = Math.Round(fi.Length / 1024, 2) 'Size in Bytes - Divided by 1024 -> KiloByte
    3. Dim filename As String = fi.Name 'Name of the file, i.e. "ABCDEFG.bmp"
    4. Dim fileformat As String = fi.Extension.Replace(".", "") 'Deletes the dot in the Extension
    7. 'If fileformat <> "jpg" And picturesize > 256 Then
    8. 'ElseIf picturesize > 256 Then
    9. 'ElseIf fileformat <> "jpg" Then
    10. 'Else
    12. fi.CopyTo(destinationpath & "backgroundDefault.jpg", True)
    14. PictureInfo.Text = "Current LogOn Screen"
    15. MsgBox("Modification successful")
    17. 'End If
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Okay ich bin grad ein bisschen durcheinander:

    Also der Teil den ich postet hab soll so bleiben, nur soll vorm kopieren ein Dispose rein.
    Und "disposet" wird ein Streamreader, den ich da konfiguriert habe, wo ich den Pfad für die PictureBox angebe ? ?(

    Also der Teil sieht so aus:

    VB.NET-Quellcode

    1. If System.IO.File.Exists(destinationpath & "backgroundDefault.jpg") Then
    2. Picture.Image = New Bitmap(destinationpath & "backgroundDefault.jpg")
    3. imagepath = destinationpath & "backgroundDefault.jpg"
    4. Else
    5. Picture.Image = New Bitmap("C:\Windows\System32\oobe\background.bmp")
    6. imagepath = destinationpath.Replace("info\backgrounds\", "") & "background.bmp" '"C:\Windows\System32\oobe\background.bmp"
    7. End If


    Sorry, dass ich mich so doof anstelle, ich fang grad erst an mich in VB einzuarbeiten :D

    EDIT: Und davor soll jetzt ein Streamreader ? 8|
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Ne... Vergiss den StreamReader, das war ein Versehen von mir... Der ist ja nur da um Textdateien auszuelsen :rolleyes:
    Gib das Bild doch vorm Kopieren einfach frei.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „programmer71“ ()

    Ja, aber das hab ich schon probiert, nur das bringt nichts :/
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ThePlexian“ ()

    EDIT: Immer noch das "wird von einem anderen Prozess verwendet" - Problem :(
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ThePlexian“ ()

    Hallo,

    hast du das Programm als Administrator gestartet, weil in den System32-Ordner
    kommt man ohne Administratorrechte nicht rein und darum vielleicht "Zugriff verweigert".

    MFG

    Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    @Alex-Digital: Lies doch das Problem, bevor du Antworten gibst zu denen ich keine Frage gestellt hab ;)

    @programmer71:
    Es bringt einfach nichts :/ Ich habe es eingesetzt, vor dem Copy-Befehl, aber es besteht das selbe Problem :/

    Hier mal mein ganzer Code wenn ihr wollt: ;)

    DANKE programmer71 für deine Geduld ;)


    Spoiler anzeigen

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Drawing.Imaging
    3. Imports System.Drawing.Drawing2D
    4. Imports Microsoft.VisualBasic
    6. Public Class Form1
    7. Public imagepath As String = ""
    8. Public destinationpath As String = "C:\Users\" & Environment.UserName & "\Music\oobe\info\backgrounds\" '"C:\Windows\System32\oobe\info\backgrounds\"
    11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. Picture.SizeMode = PictureBoxSizeMode.StretchImage
    14. If System.IO.File.Exists(destinationpath & "backgroundDefault.jpg") Then
    15. Picture.Image = New Bitmap(destinationpath & "backgroundDefault.jpg")
    16. imagepath = destinationpath & "backgroundDefault.jpg"
    17. Else
    18. Picture.Image = New Bitmap("C:\Windows\System32\oobe\background.bmp")
    19. imagepath = destinationpath.Replace("info\backgrounds\", "") & "background.bmp" '"C:\Windows\System32\oobe\background.bmp"
    20. End If
    21. Picture.Dispose()
    22. End Sub
    25. Private Sub ButtonBrowse_Click(sender As Object, e As EventArgs) Handles Browse.Click 'Search for the new Pic
    26. Dim FOInterface As New OpenFileDialog() 'Interface for Opening Files
    28. Try
    29. With FOInterface
    30. .InitialDirectory = "C:\Users\Public\Pictures\Computer\Backgrounds\" '"C:\Users\" & Environment.UserName & "\Pictures" 'Start Directory"
    31. .Filter = _
    32. "Alle Bilddateien|*.jpg;*.jpeg;*.jpe;*.bmp;*.gif;*.png;*.tif;*.tiff|" & _
    33. "Alle Dateien (*.*)|*.*"
    34. .ShowDialog() 'Refresh()
    35. End With
    36. Picture.Image = New Bitmap(FOInterface.FileName)
    37. imagepath = FOInterface.FileName
    38. PictureInfo.Text = "Optional New LogOn Screen"
    39. Catch ex As Exception
    40. End Try
    41. End Sub
    43. Private Sub Restore_Click(sender As Object, e As EventArgs) Handles Restore.Click 'Set the LogOn Screen back to Default
    44. Picture.Image = New Bitmap("C:\Windows\System32\oobe\background.bmp")
    45. imagepath = "C:\Windows\System32\oobe\background.bmp"
    46. PictureInfo.Text = "Optional New LogOn Screen"
    47. End Sub
    49. Private Sub Change_Click(sender As Object, e As EventArgs) Handles Change.Click
    51. If imagepath <> "C:\Windows\System32\oobe\info\backgrounds\backgroundDefault.jpg" Then
    53. Dim regpath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background"
    54. 'Try
    55. 'My.Computer.Registry.LocalMachine.OpenSubKey(regpath, True).CreateSubKey(regpath).SetValue("OEMBackground", "0", Microsoft.Win32.RegistryValueKind.DWord)
    56. 'Catch ex As Exception
    57. 'MsgBox(ex.Message)
    58. 'End Try
    60. Dim fi As New FileInfo(imagepath)
    61. Dim picturesize As Single = Math.Round(fi.Length / 1024, 2) 'Size in Bytes - Divided by 1024 -> KiloByte
    62. Dim filename As String = fi.Name 'Name of the file, i.e. "ABCDEFG.bmp"
    63. Dim fileformat As String = fi.Extension.Replace(".", "") 'Deletes the dot in the Extension
    66. 'If fileformat <> "jpg" And picturesize > 256 Then
    67. 'ElseIf picturesize > 256 Then
    68. 'ElseIf fileformat <> "jpg" Then
    69. 'Else
    72. File.Copy(imagepath, destinationpath & "backgroundDefault.jpg", True)
    74. PictureInfo.Text = "Current LogOn Screen"
    75. MsgBox("Modification successful")
    77. 'End If
    78. End If
    80. End Sub
    85. REM *********************************
    86. REM ***** Picture Changing Subs *****
    87. REM *********************************
    89. Sub ResizeImage(ByVal ipath As String, ByVal dpath As String, ByVal w As Integer, ByVal h As Integer)
    90. Dim i As Image = New Bitmap(ipath)
    92. Dim newImage As Image = New Bitmap(w, h)
    93. Using graphicsHandle As Graphics = Graphics.FromImage(newImage)
    94. graphicsHandle.InterpolationMode = InterpolationMode.Default
    95. graphicsHandle.DrawImage(i, 0, 0, w, h)
    96. End Using
    98. i.Dispose()
    100. newImage.Save(dpath)
    101. End Sub
    105. Private Shared Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
    106. Dim j As Integer
    107. Dim encoders() As ImageCodecInfo
    108. encoders = ImageCodecInfo.GetImageEncoders()
    110. j = 0
    111. While j < encoders.Length
    112. If encoders(j).MimeType = mimeType Then
    113. Return encoders(j)
    114. End If
    115. j += 1
    116. End While
    117. Return Nothing
    118. End Function[/spoiler]
    120. Public Shared Sub ChangeColorDepth(ByVal ipath As String, ByVal dpath As String)
    121. Dim myBitmap As Bitmap
    122. Dim myImageCodecInfo As ImageCodecInfo
    123. Dim myEncoder As Encoder
    124. Dim myEncoderParameter As EncoderParameter
    125. Dim myEncoderParameters As EncoderParameters
    128. myBitmap = New Bitmap(ipath)
    129. myImageCodecInfo = GetEncoderInfo("image/jpeg")
    130. myEncoder = Encoder.ColorDepth
    131. myEncoderParameters = New EncoderParameters(1)
    133. myEncoderParameter = New EncoderParameter(myEncoder, CType(24L, Int32))
    134. myEncoderParameters.Param(0) = myEncoderParameter
    135. myBitmap.Save(dpath, myImageCodecInfo, myEncoderParameters)
    136. End Sub
    138. End Class
    [/expander]
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    @ThePlexian
    Du benötigst nen FileStream keinen StreamReader, ich Depp! :D
    Versuchs mal damit. Wobei ich es gerade getestet habe und festgestellt habe, dass es nicht geht.
    Drum habe ich dir jetzt keinen Code hier hingeschrieben, da er dir eh nichts nutzen würde...
    Von daher tut es mir Leid dir das mitzuteilen, aber es gibt keine Lösung dafür...
    Du musst deinen Ansatz komplett überdenken...
    Sorry... Ich hoffe ich konnte dir trotzdem ein wenig helfen...

    Also was auch immer du versuchst es geht net... Nicht mal mit Dispose, wie ich gerade feststellen musste...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „programmer71“ () aus folgendem Grund: Rechtschreibfehler

    ThePlexian schrieb:

    Also in der Form ist ne PictureBox, in der das Bild, was vorher in nem OpenFileDialog() ausgewählt wurde, angezeigt wird
    Wie lädst du die Daten in die Picturebox?
    Mit FromFile?
    Das blockiert die Datei.

    Mach den Umweg über FromStream:

    VB.NET-Quellcode

    1. Dim fs = New System.IO.FileStream("C:\xyz\abc.jpg", IO.FileMode.Open, IO.FileAccess.Read)
    2. PictureBox1.Image = System.Drawing.Image.FromStream(fs)
    3. fs.Close()
    Danach ist die Datei wieder frei.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @petaod
    Hab ich getestet. Das funktioniert nicht. Den Code hab ich auch schon versucht. Das ist total übel. :/
    Selbst wenn du den FileStream wieder schließt wird der Zugriff verweigert. Teste es mal mit seinem Code...
    Darum hab ich meinen Beitrag auch wieder editiert, weil der überarbeitete Code von ihm dann mit FileStream auch nicht gefunzt hätte.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „programmer71“ ()

Facebook
Telefonspende