Home › Forum › Programming › Visual Basic Programming › [Vb.net] Write folder with files from resource to..
[Vb.net] Write folder with files from resource to..
[Vb.net] Write folder with files from resource to..
How would you write a folder containing several files from resources to my usb using vb.net?
Code:
Public Sub MoveFiles(ByVal sourcePath As String, ByVal DestinationPath As String)
If (Directory.Exists(sourcePath)) Then
For Each fName As String In Directory.GetFiles(sourcePath)
If File.Exists(fName) Then
Dim dFile As String = String.Empty
dFile = Path.GetFileName(fName)
Dim dFilePath As String = String.Empty
dFilePath = DestinationPath + dFile
File.Move(fName, dFilePath)
End If
Next
End If
End Sub
alright thanks man.
how can i check if a folder is already in there?
so if a file called "private" is already in my documents, it will not make a new file called "private".
how can i check if a folder is already in there?
so if a file called "private" is already in my documents, it will not make a new file called "private".
If Not File.Exists(Path) Then
'whatever
End if
'whatever
End if
ok thanks man.
last question, how do you delete a folder and all its content inside?
last question, how do you delete a folder and all its content inside?
Code:
Public Sub DeleteFilesFromFolders(ByVal sourcePath As String)
If (Directory.Exists(DirPath)) Then
For Each fName As String In Directory.GetFiles(DirPath)
If File.Exists(fName) Then
File.Delete(fName)
End If
Next
End If
End Sub
I need ur help guys.
I have a slight problem.
When i use this code
This would not work for .png or .xml files. It said something about a 1-dimensional array or something.
I have a slight problem.
When i use this code
Code:
Dim RPath As String = Application.StartupPath & "\File.exe" 'File.exe will be a temp name given to your exe, you can make it anything you want, or keep it as is.
' Will create the file with the given name
Using CreateFile As New FileStream(RPath, FileMode.Create)
CreateFile.Write(My.Resources.YourResource, 0, My.Resources.YourResource.Length)
End Using
Originally Posted by ppl2pass
I need ur help guys.
I have a slight problem.
When i use this code
This would not work for .png or .xml files. It said something about a 1-dimensional array or something.
I have a slight problem.
When i use this code
Code:
Dim RPath As String = Application.StartupPath & "\File.exe" 'File.exe will be a temp name given to your exe, you can make it anything you want, or keep it as is.
' Will create the file with the given name
Using CreateFile As New FileStream(RPath, FileMode.Create)
CreateFile.Write(My.Resources.YourResource, 0, My.Resources.YourResource.Length)
End Using
Dim RPath As String = Application.StartupPath & "\File.png"
Dim i As System.Text.Encoding = System.Text.Encoding.ASCII
Using CreateFile As New FileStream(RPath,FileMode.Create)
CreateFile.Write(i.GetBytes(RPath),0,i.GetByteCoun t(RPath))
End Using
Originally Posted by ppl2pass
I need ur help guys.
I have a slight problem.
When i use this code
This would not work for .png or .xml files. It said something about a 1-dimensional array or something.
I have a slight problem.
When i use this code
Code:
Dim RPath As String = Application.StartupPath & "\File.exe" 'File.exe will be a temp name given to your exe, you can make it anything you want, or keep it as is.
' Will create the file with the given name
Using CreateFile As New FileStream(RPath, FileMode.Create)
CreateFile.Write(My.Resources.YourResource, 0, My.Resources.YourResource.Length)
End Using
Dim fileData = New FileStream("\ProgramFiles\Filenamehere.png", FileMode.OpenOrCreate)
Dim BW As New BinaryWriter(fileData)
Try
For bt As Integer = 0 To myFile.Length - 1
BW.Write(myFile(bt))
Next
Catch ex As Exception
MsgBox(ex)
Finally
fileData.Close()
BW.Close()
End Try[/php]
Should work on any file.
flames for your code does it even read the file from my resources?
Originally Posted by ppl2pass
flames for your code does it even read the file from my resources?
hejan's code did not work. i still had the same problem... your code needs a bit of fixing but i dont know how to do it. 
Originally Posted by ppl2pass
hejan's code did not work. i still had the same problem... your code needs a bit of fixing but i dont know how to do it.
Why you need to write the png file this way. Can't you directly copy the file to the specified target ? Or is there a problem in that ??
how can you copy it? i never tried it.
Originally Posted by ppl2pass
how can you copy it? i never tried it.
Dim DestinationFile As String = Application.StartupPath & "\File.jpg"
My.Computer.FileSystem.CopyFile(FileToCopy,Destina tionFile, True )
This will copy the file the specified image to the specified location.
Similar Threads
- [SOURCE CODE]Write File To Disk From Resources[VB.NET]By ajvpot in Combat Arms Hack Coding / Programming / Source Code2Last post
- 2Last post
- 3Last post
- 6Last post
- 13Last post