Ecmil
asked on
Copy, Cut and Paste files
Is there any possibility to cut, paste and copy files when using FileListBox. If there is, how? What are the codes?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I want to cut, paste and copy files like in the explorer
ASKER
How do I do the normal file copy stuff like with any binary file
(open one for input, another for output and copy from in to out until EOF) ?????
(open one for input, another for output and copy from in to out until EOF) ?????
'
' FileSpec$ = Full name/path of original file
' filnam$ = Root file name in local directory
'
' Ok, we want to copy in large blocks for speed, but we
' can't get too big or we'll run out of buffer
'
If Len(filnam$) > 0 Then
rawsize = FileLen(filespec$)
numblocks = Int(rawsize / 4096)
fraction = rawsize Mod 4096
Open filespec$ For Binary As #1
Open maildir$ + filnam$ For Binary As #2
'
If numblocks < 1 Then GoTo copytail
'
For cindex = 1 To numblocks
bite$ = Space$(4096)
Get #1, , bite$
Put #2, , bite$
Next cindex
'
copytail:
If fraction > 0 Then
bite$ = Space$(fraction)
Get #1, , bite$
Put #2, , bite$
End If
'
Close
End If
'
' FileSpec$ = Full name/path of original file
' filnam$ = Root file name in local directory
'
' Ok, we want to copy in large blocks for speed, but we
' can't get too big or we'll run out of buffer
'
If Len(filnam$) > 0 Then
rawsize = FileLen(filespec$)
numblocks = Int(rawsize / 4096)
fraction = rawsize Mod 4096
Open filespec$ For Binary As #1
Open maildir$ + filnam$ For Binary As #2
'
If numblocks < 1 Then GoTo copytail
'
For cindex = 1 To numblocks
bite$ = Space$(4096)
Get #1, , bite$
Put #2, , bite$
Next cindex
'
copytail:
If fraction > 0 Then
bite$ = Space$(fraction)
Get #1, , bite$
Put #2, , bite$
End If
'
Close
End If
'
ASKER