एक निर्देशिका बनाएं और एक फ़ाइल कॉपी करें

Question

वीबीएस में आप निर्देशिका कैसे बनाते हैं और फिर इसमें फ़ाइल कॉपी करते हैं?

आईडी सी के रूट में फ़ोल्डर बनाना पसंद है उदा। C: \ फ़ोल्डर और फिर उस नए फ़ोल्डर

Answer 1

उपयोग FileSystemObject वस्तु, अर्थात्, इसकी CreateFolder और CopyFile तरीकों में \ सर्वर \ folder \ file.ext से एक फाइल कॉपी।

Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 

' Create a new folder 
oFSO.CreateFolder "C:\MyFolder" 

' Copy a file into the new folder 
' Note that the destination folder path must end with a path separator (\) 
oFSO.CopyFile "\\server\folder\file.ext", "C:\MyFolder\" 

तुम भी अतिरिक्त तर्क जोड़ने के लिए, देखना हो फ़ोल्डर आपके पास पहले से बनाना चाहते हैं मौजूद है (क्योंकि CreateFolder इस मामले में एक त्रुटि को जन्म देती है) या का उल्लेख करने के लिए कर सकते: मूल रूप से, यह है कि क्या अपनी स्क्रिप्ट दिखेगा की तरह है प्रतिलिपि बनाई जा रही फाइल को ओवरराइट करना है या नहीं। तो, आप इसके साथ समाप्त कर सकते हैं:

Const strFolder = "C:\MyFolder\", strFile = "\\server\folder\file.ext" 
Const Overwrite = True 
Dim oFSO 

Set oFSO = CreateObject("Scripting.FileSystemObject") 

If Not oFSO.FolderExists(strFolder) Then 
    oFSO.CreateFolder strFolder 
End If 

oFSO.CopyFile strFile, strFolder, Overwrite 

Answer 2

आप इस उद्देश्य के लिए खोल का उपयोग कर सकते हैं।

Set shl = CreateObject("WScript.Shell") 
shl.Run "cmd mkdir YourDir" & copy "