Introduction
I needed a dirty method for copying my image folder.
Just use: WriteFolder txtSRCPATH, txtDESTPATH
Option Explicit
Private Sub Form_Load()
End Sub
Private Sub cmdCOPY_Click()
WriteFolder txtSRCPATH, txtDESTPATH
End Sub
Sub WriteFolder(ByVal fsrc As String, ByVal fdes As String)
Dim Buffer() As Byte
Dim fname As String
fname = Dir(fsrc, vbArchive)
Do While fname <> ""
DoEvents
If (InStr(1, fname, "jpeg", vbBinaryCompare) > 0 <BR> Or InStr(1, fname, "gif", vbBinaryCompare) > 0) Then
DoEvents
WriteFile fdes & fname, ReadFile(fsrc & fname, Buffer())
End If
DoEvents
fname = Dir()
DoEvents
Loop
End Sub
Function ReadFile(fname As String, Buffer() As Byte) As Byte()
Dim fh, flen As Long
fh = FreeFile
Open fname For Binary Access Read As #fh
flen = LOF(fh)
Buffer = InputB(flen, #fh)
Close #fh
ReadFile = Buffer()
End Function
Sub WriteFile(fname As String, Buffer() As Byte)
Dim fh As Long
fh = FreeFile
Open fname For Binary Access Write As #fh
Put #fh, , Buffer
Close #fh
End Sub
The WriteFolder
method passes "jpeg" and "gif" files only. (You can change this as needed.)
Hubris is like armor. He is afraid to take on a Coder project for what it may do to him, both financially and to his health.
WEB Bowser is a hack that makes it easy to acquire internet content for archival. Its also possible to PROXY it, serving it to the internet as well. Given this capability, people will change the internet again.
I envision a programmable server that will acquire content for proxy. Users will then add proxy content to their own, making it available almost as if it were their own. We are already "information collectors." Its the opinions that are getting real hard to find.
-