1
ভিবিএস: একটি ফোল্ডারে একটি ফাইল নির্বাচন করুন
নিম্নলিখিত কোডটি একটি উইন্ডোজ এক্সপ্লোরার ফোল্ডারে আরজি 1 নির্বাচন করে: Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run("""" & WScript.Arguments(0) & """") WScript.Sleep 400 ' objShell.SendKeys("^a{F5}") ' Deslect All. Set objShellAPP = CreateObject("Shell.Application") On Error Resume Next ' For new unsaved files. With objShellAPP.Windows(objShellAPP.Windows.Count - 1).document .SelectItem .Folder.Items.Item(WScript.Arguments(1)), 17 End With Set objShell …