求修改：拖到这里选定文件.bat，谢谢

yyz219

拖到这里选定文件.bat：

1. 
   
2. ::【拖到这里选定文件】
   
3. @echo off
   
4. explorer /select,%~1
   
5. exit
   

复制代码

将文件拖到批处理图标，会（在新窗口）打开文件所在目录，并且选定这个文件
*******************************************************
现在希望：将文件拖到批处理图标，在原来窗口（不打开新窗口）选定这个文件

谢谢

yyz219

拖到这里选定文件.bat：将文件拖到批处理图标，会（在新窗口）打开文件所在目录，并且选定这个文件
****** ...
yyz219 发表于 2022-12-30 16:31

    是不是不能够解决？

idwma

搜一下排第一个的就是呀

1. #@&cls&powershell "$a='%~1';type '%~f0'|out-string|iex"&exit
   
2. add-type @'
   
3. using System;
   
4. using System.IO;
   
5. using System.Text;
   
6. using System.Runtime.InteropServices;
   
7. using System.Diagnostics;
   
8. using System.ComponentModel;
   
9. 
   
10. public static class test
    
11. {
    
12.    [DllImport("shell32.dll", ExactSpelling = true)]
    
13.     private static extern void ILFree(IntPtr pidlList);
    
14. 
    
15.     [DllImport("shell32.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
    
16.     private static extern IntPtr ILCreateFromPathW(string pszPath);
    
17. 
    
18.     [DllImport("shell32.dll", ExactSpelling = true)]
    
19.     private static extern int SHOpenFolderAndSelectItems(IntPtr pidlList, uint cild, IntPtr children, uint dwFlags);
    
20. 
    
21.     public static void ExplorerFile(string filePath)
    
22.     {
    
23.         if (!File.Exists(filePath) && !Directory.Exists(filePath))
    
24.             return;
    
25.         if (Directory.Exists(filePath))
    
26.             Process.Start(@"explorer.exe", "/select,"" + filePath + """);
    
27.         else
    
28.         {
    
29.             IntPtr pidlList = ILCreateFromPathW(filePath);
    
30.             if (pidlList != IntPtr.Zero)
    
31.             {
    
32.                 try
    
33.                 {
    
34.                     Marshal.ThrowExceptionForHR(SHOpenFolderAndSelectItems(pidlList, 0, IntPtr.Zero, 0));
    
35.                 }
    
36.                 finally
    
37.                 {
    
38.                     ILFree(pidlList);
    
39.                 }
    
40.             }
    
41.         }
    
42.     }
    
43. }
    
44. '@
    
45. [test]::ExplorerFile($a)

复制代码

yyz219

搜一下排第一个的就是呀
idwma 发表于 2023-1-1 18:00

    感谢你的帮助

yyz219

搜一下排第一个的就是呀
idwma 发表于 2023-1-1 18:00

    一.有一点慢
    二、对桌面的文件，还是会在新窗口打开再选定

有没有办法修改一下？谢谢

idwma

powershell第一次启动是有一点慢的
两个桌面的路径不一样,这个不会改呀

yyz219

powershell第一次启动是有一点慢的
两个桌面的路径不一样,这个不会改呀
idwma 发表于 2023-1-1 18:23

    谢谢