সমস্ত ধন্যবাদ, পরামর্শের জন্য।
আমি একটি ভিবিএস স্ক্রিপ্ট লিখে শেষ করেছিলাম যা ফোল্ডারটি পোলিংয়ের প্রায়শই লিঙ্কার 3000 এর ধারণার উপর ভিত্তি করে তৈরি হয়েছিল এবং টাস্ক শিডিয়ুলারটি ব্যবহার করে এটি শুরুতে চালানো হয়েছিল। আমি এই সংস্থান থেকে বেসিক সিনট্যাক্স পেয়ে শেষ করেছি এবং প্রয়োজনীয় টুইটগুলি করেছি।
আমি স্ক্রিপ্টের সাহসী কোনও ইভেন্ট-চালিত সিস্টেমে চালিত হওয়ার পরেও আমি এটিকে অপ্টিমাইজ করতে চাই, তবে আমি এটি নিয়ে কাজ করার জন্য খুব বেশি সময় পার করেছি, এবং ভাল, এটি যথেষ্ট ভাল।
স্ক্রিপ্টটি এখানে, কারও আগ্রহের ক্ষেত্রে (অপ্রাসঙ্গিক রূপান্তর বিভাগটি স্পষ্টতার জন্য পুনঃনির্দেশিত সহ):
' FOLDER TO MONITOR
strFolder = "J:\monitored-folder"
' FREQUENCY TO CHECK IT, IN SECONDS
nFrequency = 10
strComputer = "."
strQueryFolder = Replace(strFolder, "\", "\\\\")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent WITHIN " & nFrequency & " WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent='Win32_Directory.Name=""" & strQueryFolder & """'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
strNewFile = objLatestEvent.TargetInstance.PartComponent
arrNewFile = Split(strNewFile, "=")
strFilePath = arrNewFile(1)
strFilePath = Replace(strFilePath, "\\", "\")
strFilePath = Replace(strFilePath, Chr(34), "")
strFileName = Replace(strFilePath, strFolder, "")
strTempFilePath = WScript.CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\TEMP.M4A"
' DO THE OPERATION STUFF
' ...
Loop
(এছাড়াও, আমি এই প্রশ্নটি আনুষ্ঠানিকভাবে উত্তর ছাড়তে চাই না - এবং আমি এই প্রশ্নের নিজের উত্তরটি গ্রহণ করতে ঘৃণা করি - তবে আমি ধন্যবাদ হিসাবে লিঙ্কার ৩০০০ এর উত্তরকে অগ্রাহ্য করেছি!)