مشكلة - vbscript شرح



تغيير نمط تحديد مجلد (1)

أتساءل كيف يمكنني استخدام هذا النمط لتحديد مجلد؟

أسأل هذا بعد العثور على القدرة على البحث عن ملفات مثل هذا:

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
sFileSelected = oExec.StdOut.ReadLine
If sFileSelected = "" Then
    WScript.Echo "Canceled"
Else
wscript.echo sFileSelected
End If


جرب هذا:

Set chosenfolder = CreateObject("shell.application").BrowseForFolder(0,"Select a folder",0)