- 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(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
This program sends the information(files)from ur system into the floppy disk.(This works perfectly) Comments
No comments yet — be the first to post one!
Post a Comment