- <STAThread()> Public Sub Main(ByVal Args() As String)
- Try
- Dim emptyzip() As Byte = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
-
- Dim fs As FileStream = File.Create(Args(1))
- fs.Write(emptyzip, 0, emptyzip.Length)
- fs.Flush()
- fs.Close()
- fs = Nothing
- Dim sc As Shell32.ShellClass = New Shell32.ShellClass()
- Dim SrcFlder As Shell32.Folder = sc.NameSpace(Args(0))
- Dim DestFlder As Shell32.Folder = sc.NameSpace(Args(1))
- Dim items As Shell32.FolderItems = SrcFlder.Items()
- DestFlder.CopyHere(items, 20)
- Dim i As Integer = SrcFlder.Items.Count
- Console.WriteLine(i)
- While DestFlder.Items.Count < i
- System.Threading.Thread.Sleep(1000)
- End While
- Catch ex As Exception
- Console.WriteLine(ex.Message)
- End Try
- End Sub
<STAThread()> Public Sub Main(ByVal Args() As String)
Try
Dim emptyzip() As Byte = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim fs As FileStream = File.Create(Args(1))
fs.Write(emptyzip, 0, emptyzip.Length)
fs.Flush()
fs.Close()
fs = Nothing
Dim sc As Shell32.ShellClass = New Shell32.ShellClass()
Dim SrcFlder As Shell32.Folder = sc.NameSpace(Args(0))
Dim DestFlder As Shell32.Folder = sc.NameSpace(Args(1))
Dim items As Shell32.FolderItems = SrcFlder.Items()
DestFlder.CopyHere(items, 20)
Dim i As Integer = SrcFlder.Items.Count
Console.WriteLine(i)
While DestFlder.Items.Count < i
System.Threading.Thread.Sleep(1000)
End While
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub