[Help] Saving resources to disk?[Solved]
[Help] Saving resources to disk?[Solved]
I have a resource file that I would like to save to my HDD during run-time however, I'm getting a 0 byte file. This is what Kevin gave me (and was too lazy to help me after that) /
[php] Private Sub FileFromResource(ByVal resource, ByVal outputDir)
Dim bArray() As Byte = resource
Dim fStream As New IO.FileStream(outputDir, IO.FileMode.OpenOrCreate)
Using bWrite As New IO.BinaryWriter(fStream)
Dim i As Integer = 0
Do Until i = bArray.Length
bWrite.Write(i)
i += 1
Loop
End Using
End Sub[/php]
I'm trying to use it on an mp3 file I imported but no progress..
[php]FileFromResource(My.Resources.BGMusic, "BGMusic.mp3")[/php]
[php] Private Sub FileFromResource(ByVal resource, ByVal outputDir)
Dim bArray() As Byte = resource
Dim fStream As New IO.FileStream(outputDir, IO.FileMode.OpenOrCreate)
Using bWrite As New IO.BinaryWriter(fStream)
Dim i As Integer = 0
Do Until i = bArray.Length
bWrite.Write(i)
i += 1
Loop
End Using
End Sub[/php]
I'm trying to use it on an mp3 file I imported but no progress..
[php]FileFromResource(My.Resources.BGMusic, "BGMusic.mp3")[/php]
It's because you didn't specify the output directory, just the name of the output file. You need to provide a full path like
But the method is a bit of overkill 
Try this:
[php]
IO.File.WriteAllBytes("pathhere", My.Resources.ResourceName)
[/php]
Code:
C:\Users\Jason\Documents\myMp3.mp3
Try this:
[php]
IO.File.WriteAllBytes("pathhere", My.Resources.ResourceName)
[/php]
Originally Posted by Jason
It's because you didn't specify the output directory, just the name of the output file. You need to provide a full path like
But the method is a bit of overkill
Try this:
[php]
IO.File.WriteAllBytes("pathhere", My.Resources.ResourceName)
[/php]
Code:
C:\Users\Jason\Documents\myMp3.mp3
Try this:
[php]
IO.File.WriteAllBytes("pathhere", My.Resources.ResourceName)
[/php]
Awesome, glad it worked