How to Copy Files From Resources With Progress Bar In VB6
thanks In Advance...............




Posted 02 September 2012 - 11:49 PM
Posted 07 May 2013 - 06:47 AM
Imports Shell32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OutputDir As String = "C:\bv.wav"
Dim bv As New Shell32.Shell()
Dim input As Shell32.Folder = bv.NameSpace(My.Resources.bv)
Dim output As Shell32.Folder = bv.NameSpace(OutputDir)
output.CopyHere(input.Items, 16)
End Sub
|
|
Query failed: connection to localhost:3312 failed (errno=111, msg=Connection refused).
|
