• Home
 · 
• Miscellaneous
 · 
• This program sends the information(files)from ur system into the floppy disk.(This works perfectly)

This program sends the information(files)from ur system into the floppy disk.(This works perfectly)

This program sends the information(files)from ur system into the floppy disk.(This works perfectly)

API Declarations


hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type

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

Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8



Rate This program sends the information(files)from ur system into the floppy disk.(This works perfectly)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim ShellCall As SHFILEOPSTRUCT

ShellCall.hwnd = hwnd
ShellCall.wFunc = FO_COPY
ShellCall.pFrom = "c:\dir\anypath.txt" 'any location which can be made manually 'or by browsing,source path (take care that the file must exist)
ShellCall.pTo = "a:\"'-destination path
ShellCall.hNameMappings = 0
Call SHFileOperation(ShellCall)
End Sub