[Vb.net] Write folder with files from resource to..

[ppl2pass]

thanks but how can you copy the file from resources.

[Hassan]

thanks but how can you copy the file from resources.

Add this sub:

Sub SaveResourceImage( ByVal ResourceName As String , ByVal TargetLocAndFilename As String )
Dim obj As Object
Dim Bitmap As Bitmap
obj = My.Resources.ResourceManager.GetObject(ResourceNam e)
Bitmap = obj
Bitmap.Save(TargetLocAndFilename)
End Sub

Then call the sub from where ever you want, like:

SaveResourceImage( "Wikipedia", "C:\wiki.jpg")
'Here Resource Image is Wikipedia which must exist in my resources.

'Here "C:\wiki.jpg" is the location and name where I would save the file extracted from the resource



Hope you got it !

[ppl2pass]

can you do this for .xml files? and btw thanks

[ppl2pass]

bump i still need help for .xml file.

[Hassan]

bump i still need help for .xml file.

I have to install VB... Re-Installed windows....Gimme half an hour...

[ppl2pass]

alright thanks man

[Hassan]

Add This Sub:

Sub SaveXML( ByVal resourcename As String , ByVal location As String )
Dim obj As Object
obj = My.Resources.ResourceManager.GetObject(resourcenam e)
My.Computer.FileSystem.WriteAllText(location,obj, False )
End Sub

Then call it from anywhere:

SaveXML( "ppl2pass", "D:\ppl2pass.xml")
'Here ResourceName is ppl2pass which must exist in my resources.

'Here "D:\ppl2pass.xml" is the location and name where I would save the xml file extracted from the resource.

'Note that if you have an xml file named "ppl2pass.xml" in the resource, you will use it without extension like "ppl2pass", or else it won't work.

Hope this helps

[/b/oss]

 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

aggain -.-"

[Hassan]

aggain -.-"

Stop spamming please !!!