मैं वीबी 6 में एक खुली फ़ाइल कैसे कॉपी करूं?

Question

वीबी 6 का उपयोग करते हुए, जब मैं किसी अन्य व्यक्ति द्वारा फ़ाइल खोला जाता है, तो मैं किसी अन्य कंप्यूटर से किसी फ़ाइल को अपने कंप्यूटर पर कैसे कॉपी करूं?

Answer 1

यदि आप वर्तमान में खुली फ़ाइल पर FileCopy स्टेटमेंट का उपयोग करने का प्रयास करते हैं, तो एक त्रुटि होती है। हालांकि, FileSystemObject के CopyFile फ़ंक्शन में कोई समस्या नहीं है, इसलिए इसके बजाय इसका उपयोग करें। सबसे पहले, आपको माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम (प्रोजेक्ट-> संदर्भ ... मेनू) पर एक संदर्भ जोड़ना होगा। तो फिर तुम यह कर सकते हैं:

Dim fso As New FileSystemObject 

fso.CopyFile "\\someOtherComputer\share\foo.mdb", "C:\foo.mdb" 

Answer 2

आप Windows एपीआई

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ 
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _ 
ByVal bFailIfExists As Long) As Long 



Public Function CopyFileA(OldFileName As String, NewFileName As String) As Boolean 
    On Error Resume Next 

    If CopyFile(OldFileName, NewFileName, False) <> 1 Then 
     MsgBox "Error copying file", vbExclamation, 
    Else 
     CopyFileA = True 
    End If 
End Function