【已解决】请问VBS如何获取正在使用的文件夹路径呢？---已解决，感谢版主和网友帮助

wind5win

请问如何获取正在会使用的文件夹路径呢，不是获取脚本所在文件夹路径，也不是获取特定文件所有的路径。
比如我打开了C:\Program Files，我通过右键运行放在D盘的脚本，获取到我正在用的文件夹地址“C:\Program Files“

Batcher

回复 1# wind5win


test-1.bat

1. @echo off
   
2. powershell "@((New-Object -com shell.application).Windows()).Document.Folder.Self.Path"
   
3. pause

复制代码

wind5win

回复 2# Batcher


  你好，请问vbs里怎么写呢，我需要提取的路径在vbs中引用

wind5win

回复 2# Batcher
我填加右键调用bat，再使bat运行vbs，结果是在任意右键位置生成日期文件。现在有个问题是在网络共享盘里运行vbs创建文件夹失败，需要加共享网盘目录

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\datefolder]

"MUIVerb"="新建日期文件夹"
"Icon"="shell32.dll,20"
"Position"="top"

[HKEY_CLASSES_ROOT\Directory\Background\shell\datefolder\command]
@="C:\\portable\\adddatefolder.bat"

1. @echo off
   
2. cls
   
3. set a=20
   
4. set b=1
   
5. 
   
6. :re
   
7. set /a a+=2
   
8. set /a b+=1
   
9. mode con:cols=%a% lines=%b%
   
10. if %a% lss 4 goto re
    
11. 
    
12. 
    
13. 
    
14. ::set rr="HKCU\Console\%%SystemRoot%%_system32_cmd.exe"
    
15. ::reg delete %rr% /f>nul
    
16. ::reg add %rr% /v "WindowPosition" /t REG_DWORD /d 0x012c0384 /f>nul
    
17. 
    
18. ::if “%1”==”h” goto begin
    
19. ::start mshta vbscript:createobject(“wscript.shell”).run(“”“%~nx0”” h”,0)(window.close)&&exit
    
20. ::begin
    
21. call "C:\portable\adddatefolder.vbs">nul

复制代码

Dim fso,msg,tt,ws,d,str
Set ws = WScript.CreateObject("WScript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")

d = Format_Time(Now(),6)

Function Format_Time(s_Time, n_Flag)
        Dim y, m, d, h, mi, s
        Format_Time = ""
        If IsDate(s_Time) = False Then Exit Function
        y = cstr(year(s_Time))
        m = cstr(month(s_Time))
        If len(m) = 1 Then m = "0" & m
        d = cstr(day(s_Time))
        If len(d) = 1 Then d = "0" & d
        h = cstr(hour(s_Time))
        If len(h) = 1 Then h = "0" & h
        mi = cstr(minute(s_Time))
        If len(mi) = 1 Then mi = "0" & mi
        s = cstr(second(s_Time))
        If len(s) = 1 Then s = "0" & s
        Select Case n_Flag
                Case 1
                        ' yyyy-mm-dd hh:mm:ss
                        Format_Time = y & "-" & m & "-" & d & " "& h &":" & mi &":" & s
                Case 2
                        ' yyyy-mm-dd
                        Format_Time = y & "-" & m & "-" & d
                Case 3
                        ' hh:mm:ss
                        Format_Time = h & ":" & mi & ":" & s
                Case 4
                        ' yyyy年mm月dd日
                        Format_Time = y & "年" & m & "月" & d & "日"
                Case 5                        
                        ' yyyymmdd
                        Format_Time = y & m & d
                Case 6
                        ' yyyy-mm-dd-hh-mm-ss
                        Format_Time = y & m & d & "-"& h & mi & s
        End Select
End Function

str = inputbox("输入文件夹名称")
i = "-" & str
Fldr1 = d & str
Fldr2 = d & i
'tt1 = fso.FolderExists(fldr1) '存在返回true;不存在返回false
'tt2 = fso.FolderExists(fldr2) '存在返回true;不存在返回false
'If str = false Then
If isempty(str) or str = "" Then
fso.CreateFolder Fldr1
Else
fso.CreateFolder Fldr2
'ws.run Fldr2
End If
Set fso = nothing
Set ws = nothing

77七

1. Set objShell = CreateObject("Shell.Application")
   
2. Set objWindows = objShell.Windows
   
3. 
   
4. For Each Window in objWindows
   
5.     If InStr(1, Window.FullName, "explorer.exe", vbTextCompare) > 0 Then
   
6.         Path = Window.Document.Folder.Self.Path
   
7.         If Not Path = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Then
   
8.             WScript.Echo Path
   
9.         End If
   
10.     End If
    
11. Next
    
12. 
    
13. WScript.Echo "Press any key to continue..."
    
14. WScript.StdIn.Read(1)

复制代码

我问了下ai，写了个类似的，让ai排除脚本所在目录，一直不成功
23：35编辑

我又问了一下ai
获取最后打开的windows资源管理器窗口目录

1. Set objShell = CreateObject("Shell.Application")
   
2. Set objWindows = objShell.Windows
   
3. 
   
4. strFolder = ""
   
5. 
   
6. For i = objWindows.Count - 1 To 0 Step -1
   
7.     ' Check if the window belongs to Windows Explorer
   
8.     If InStr(1, objWindows.Item(i).FullName, "explorer.exe", vbTextCompare) > 0 Then
   
9.         ' Get the location of the last opened window
   
10.         strFolder = objWindows.Item(i).Document.Folder.Self.Path
    
11.         Exit For
    
12.     End If
    
13. Next
    
14. 
    
15. ' Output the directory path of the last opened window
    
16. WScript.Echo strFolder

复制代码

77七

回复 2# Batcher


   谢谢站长分享！感觉以后可以多一个方式执行批处理了，写成批处理排除批处理脚本所在目录，只打开两个资源管理器窗口，可以直接cd 到待处理的目录工作了，很实用！

wind5win

回复 5# 77七
终于成功解决，感谢

1. Dim fso,msg,tt,ws,d,str
   
2. Set ws = WScript.CreateObject("WScript.shell")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. 
   
5. d = Format_Time(Now(),6)
   
6. 
   
7. Function Format_Time(s_Time, n_Flag)
   
8.         Dim y, m, d, h, mi, s
   
9.         Format_Time = ""
   
10.         If IsDate(s_Time) = False Then Exit Function
    
11.         y = cstr(year(s_Time))
    
12.         m = cstr(month(s_Time))
    
13.         If len(m) = 1 Then m = "0" & m
    
14.         d = cstr(day(s_Time))
    
15.         If len(d) = 1 Then d = "0" & d
    
16.         h = cstr(hour(s_Time))
    
17.         If len(h) = 1 Then h = "0" & h
    
18.         mi = cstr(minute(s_Time))
    
19.         If len(mi) = 1 Then mi = "0" & mi
    
20.         s = cstr(second(s_Time))
    
21.         If len(s) = 1 Then s = "0" & s
    
22.         Select Case n_Flag
    
23.                 Case 1
    
24.                         ' yyyy-mm-dd hh:mm:ss
    
25.                         Format_Time = y & "-" & m & "-" & d & " "& h &":" & mi &":" & s
    
26.                 Case 2
    
27.                         ' yyyy-mm-dd
    
28.                         Format_Time = y & "-" & m & "-" & d
    
29.                 Case 3
    
30.                         ' hh:mm:ss
    
31.                         Format_Time = h & ":" & mi & ":" & s
    
32.                 Case 4
    
33.                         ' yyyy年mm月dd日
    
34.                         Format_Time = y & "年" & m & "月" & d & "日"
    
35.                 Case 5                        
    
36.                         ' yyyymmdd
    
37.                         Format_Time = y & m & d
    
38.                 Case 6
    
39.                         ' yyyy-mm-dd-hh-mm-ss
    
40.                         Format_Time = y & m & d & "-"& h & mi & s
    
41.         End Select
    
42. End Function
    
43. 
    
44. str = inputbox("输入文件夹名称")
    
45. 
    
46. Set objShell = CreateObject("Shell.Application")
    
47. Set objWindows = objShell.Windows
    
48. 
    
49. strFolder = ""
    
50. 
    
51. For i = objWindows.Count - 1 To 0 Step -1
    
52.     ' Check if the window belongs to Windows Explorer
    
53.     If InStr(1, objWindows.Item(i).FullName, "explorer.exe", vbTextCompare) > 0 Then
    
54.         ' Get the location of the last opened window
    
55.         strFolder = objWindows.Item(i).Document.Folder.Self.Path
    
56.                 'set fn = objWindows.Item(i).Document.Folder
    
57.                 if ws.appactivate(objWindows.Item(i).Document.Folder) =true then
    
58.                 Exit For
    
59.                 end if
    
60.     End If
    
61. Next
    
62. 
    
63. ' Output the directory path of the last opened window
    
64. 'WScript.Echo strFolder
    
65. 
    
66. m = "-" & str
    
67. 
    
68. 'tt1 = fso.FolderExists(fldr1) '存在返回true;不存在返回false
    
69. 'tt2 = fso.FolderExists(fldr2) '存在返回true;不存在返回false
    
70. 'If str = false Then
    
71. If left(strFolder,7)<> "\\share" Then
    
72.         Fldr1 = d & str
    
73.         Fldr2 = d & m
    
74.         If isempty(str) or str = "" Then
    
75.         fso.CreateFolder Fldr1
    
76.         Else
    
77.         fso.CreateFolder Fldr2
    
78.         'ws.run Fldr2
    
79.         End If
    
80. Else
    
81.         Fldr3 = strFolder & "" & d & str
    
82.         Fldr4 = strFolder & "" & d & m
    
83.         If isempty(str) or str = "" Then
    
84.         fso.CreateFolder Fldr3
    
85.         Else
    
86.         fso.CreateFolder Fldr4
    
87.         End If
    
88. End If
    
89. Set fso = nothing
    
90. Set ws = nothing

复制代码

wind5win

回复 1# wind5win

chishingchan

不明白你的问题竟与格式时间扯上关系！