AVI - COPY FILE

[bakerm]

Cananyone tell me where to get a copy of the windows CopyFile.avi?

Thanks!

 

[vb5prgrmr]

It's filecopy not copyfile if you do a search of your hard drive you should find it at (could be different on your computer)...

C:\program files\Microsoft Visual Studio\common\graphics\videos\filecopy.avi

Good luck

 

[JPD3]

I'm looking for sample code to use the filecopy.avi and filemove.avi. Can you point me in the right direction.

Thanks.

 

[johnwm]

look up MultiMedia Control
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[edderic]

its not a .avi file

Copy File With Windows Animation

Module Code
Option Explicit
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40

Public Sub SHCopyFile(ByVal from_file As String, ByVal to_file As String)
Dim sh_op As SHFILEOPSTRUCT

With sh_op
.hWnd = 0
.wFunc = FO_COPY
.pFrom = from_file & vbNullChar & vbNullChar
.pTo = to_file & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With

SHFileOperation sh_op
End Sub



Form Code
Private Sub Command1_Click()
'the following line will copy the file "d:\file.zip" to "d:\temp\file2.zip"
SHCopyFile "d:\file.zip", "d:\temp\file2.zip"
End Sub


Eric De Decker
vbg.be@vbgroup.nl