वीबीएस

Question

में कॉपीफाइल पर अनुमति अस्वीकार कर दी गई है, मैं अपने उपयोगकर्ताओं की होम निर्देशिकाओं में एक फ़ाइल को दबाकर स्वचालित करने की कोशिश कर रहा हूं, लेकिन "अनुमति अस्वीकृत" त्रुटि पर फंस गया हूं - CopyFile कॉल के साथ यहां 6 पंक्ति पर फेंक दिया गया है।

स्क्रिप्ट के अन्य भाग (दिखाए गए नहीं) हैं जो समान स्रोत और गंतव्य निर्देशिकाओं का उपयोग करके फ़ोल्डर सामग्री बनाते हैं और कॉपी करते हैं, और वे पूरी तरह से काम करते हैं। यह केवल तब होता है जब मैं CopyFile का उपयोग करता हूं जो विफल रहता है।

dim fso 

set fso = CreateObject("Scripting.FileSystemObject") 

if not fso.FileExists("H:\Minecraft\.minecraft\options.txt") then 
     fso.CopyFile "C:\Minecraft\options.txt", "H:\Minecraft\.minecraft\" 
end if 

set fso = nothing 

H: एक नेटवर्क होम निर्देशिका, वर्तमान उपयोगकर्ता पूर्ण पढ़ने/privs बारे में है जो करने के लिए है।

मैं जोड़ने की कोशिश की है/हटाने के पीछे पथ से स्लैश गंतव्य पथ के लिए "options.txt" जोड़ने, false तर्क ... सुनिश्चित नहीं हैं और क्या करने की कोशिश करना हटाने के। कोई विचार?

धन्यवाद!

if not fso.FolderExists("H:\Minecraft\.minecraft\bin\") then 
    if not fso.FolderExists("H:\Minecraft\.minecraft\") then 
     fso.CreateFolder("H:\Minecraft\.minecraft\") 
    end if 
    fso.GetFolder("C:\Minecraft\bin\").Copy "H:\Minecraft\.minecraft\" 
end if 

Answer 1

मैं केवल CopyFile देखा है इन 3 परिदृश्यों में से एक में एक अनुमति नहीं दी त्रुटि के साथ विफल:

• या तो स्रोत या गंतव्य के साथ एक वास्तविक अनुमति समस्या।
• गंतव्य पथ एक फ़ोल्डर है, लेकिन पीछे पीछे बैकस्लैश नहीं है।
• स्रोत फ़ाइल किसी एप्लिकेशन द्वारा लॉक की गई है।

Answer 2

अपने स्रोत चर (sourcePath = "C:\Minecraft\bin\") के आधार पर मुझे लगता है अपनी हार्ड कोड की ओर इंगित करता है:

FYI करें, कोड के इस टुकड़ा है, जो ऊपर त्रुटि प्रवण बिट से ठीक पहले आता है, पूरी तरह से हर बार निष्पादित करता है गलत जगह

fso.CopyFile "C:\Minecraft\options.txt", destinationPath, false 

होना चाहिए

fso.CopyFile "C:\Minecraft\bin\options.txt", destinationPath 

या

fso.CopyFile sourcePath & "options.txt", destinationPath 

Answer 3

मेरे लिए / फ़ोल्डर के स्थान के अंत में काम किया। इसलिए, यदि आप फ़ोल्डर में प्रतिलिपि बना रहे हैं, तो /

Answer 4

मैंने आपकी समस्या को पढ़ लिया है, और मुझे एक ही समस्या है। लेकिन फिर से मैंने कुछ बदल दिया, मेरी समस्या "अनुमति अस्वीकार" हल हो गया है।

Private Sub Addi_Click() 
'On Error Resume Next 
'call ds 
browsers ("false") 
Call makeAdir 
ffgg = "C:\Users\Backups\user\" & User & "1\data\" 
Set fs = CreateObject("Scripting.FileSystemObject") 
    Set f = fs.Getfolder("c:\users\Backups\user\" & User & "1\data") 
    f.Attributes = 0 
Set fso = VBA.CreateObject("Scripting.FileSystemObject") 
Call fso.Copyfile(filetarget, ffgg, True) 

ffgg = "C:\Users\Backups\user\" & User & "1\data\" पर देखो, इससे पहले कि मैं बदल गया यह ffgg = "C:\Users\Backups\user\" & User & "1\data" था जब मैं "\data\" के बाद बैकस्लैश जोड़ने के लिए, मेरी समस्या हल कर रहा है। वापस स्लैश जोड़ने की कोशिश करें। शायद आपकी समस्या हल हो गई। सौभाग्य।

Answer 5

जांच करने की एक और बात यह है कि यदि किसी भी एप्लिकेशन को अभी भी फ़ाइल पर रोक है।

MoveFile के साथ कुछ समस्याएं थीं। मेरी अनुमति समस्या का एक हिस्सा यह था कि मेरी स्क्रिप्ट फ़ाइल खोलती है (इस मामले में एक्सेल में), एक संशोधन करता है, इसे बंद करता है, फिर इसे "संसाधित" फ़ोल्डर में ले जाता है।

कुछ चीजों को डीबग करने में, स्क्रिप्ट कुछ बार दुर्घटनाग्रस्त हो गई। अनुमति में खोने से इनकार कर दिया गया त्रुटि मैंने पाया कि मेरे पास पृष्ठभूमि में एक्सेल के 4 उदाहरण चल रहे थे क्योंकि स्क्रिप्ट कभी भी दुर्घटनाओं के कारण एप्लिकेशन को ठीक से समाप्त नहीं कर पाई थी। जाहिर है उनमें से एक अभी भी फाइल पर पकड़ था और, इस प्रकार, "अनुमति अस्वीकार कर दी गई।"