Buka lebih dari 15 file sekaligus di Vista

3

Di Windows Vista, jika Anda memilih 15 file (katakan file teks) Anda dapat mengklik kanan dan memilih Buka (atau apa pun tindakan default untuk jenis file itu). Jika Anda memilih 16 file, maka Open menghilang dari daftar.

Apakah ada cara untuk memperpanjang atau menghapus batas itu?

Corin
sumber

Jawaban:

1

Coba lihat di sini . Saya belum menguji, tetapi sepertinya solusi yang Anda inginkan - agak hack-y sekalipun.


Diformat sebaik mungkin, markdown tidak suka, e.

Shell sistem untuk Windows Vista sengaja dibuat oleh Microsoft sedemikian rupa sehingga ...

  1. Ketika file dari berbagai jenis dipilih secara bersamaan, opsi untuk membukanya dibuat tidak dapat diakses ke shell sistem, baik melalui menu konteksnya atau keyboard (yaitu, menekan {Enter}). Ini diatur oleh ekstensi file, bukan oleh program yang menangani file (misalnya, itu terjadi ketika file * .doc dan * .docx dipilih secara bersamaan).
  2. Ketika lebih dari 15 (yaitu, 16 atau lebih) file dari jenis yang sama dipilih, peristiwa yang sama terjadi.

Ini didokumentasikan oleh Zack Robinson, seorang pengembang senior Microsoft. Ini adalah solusi yang memecahkan masalah dan menempatkan solusi dalam menu konteks.

Ini hanya membutuhkan pembuatan skrip Visual Basic dan membuat pintasan untuknya di folder Kirim Ke.

  1. Buat atau unduh (ubah nama ekstensinya menjadi * .vbs) skrip yang dilampirkan pada pos ini ( kode diposting di bawah ).

  2. Buat pintasan untuk itu dan tempatkan pintasan di folder Kirim Ke Anda. Jika Anda tidak dapat menemukan folder Kirim Ke Anda, tekan Windows + R dan jalankan "shell: sendto".


Sekarang, ketika Anda mengklik kanan pada file atau file, memilih 0_file_executionentri (misalnya) dalam daftar Kirim Ke akan membuka semua file yang dipilih.

Menjalankan skrip secara langsung, alih-alih meneruskannya sebagai argumen dari item daftar Kirim Ke, memungkinkan Anda untuk mengatur jumlah waktu yang memisahkan pembukaan setiap file; jika Anda menetapkan nilai ini terlalu rendah, Vista mungkin gagal membuka semua file.


Kode :

on error resume next

nl=vbcrlf
wait=200

set shell=wscript.createobject("wscript.shell")
set filesystem=createobject("scripting.filesystemobject")

set scriptfile=filesystem.getfile(wscript.scriptfullname)

stamp=scriptfile.datelastmodified
stamparray=split(year(stamp)&"."&month(stamp)&"."&day(stamp)&"."&hour(stamp)&"."&minute(stamp)&"."&second(stamp),".")
version=stamparray(0)

for loopversion=1to ubound(stamparray)
    versionlength=len(stamparray(loopversion))
    if versionlength<2 then stamparray(loopversion)=string(2-versionlength,"0")&stamparray(loopversion)
    version=version&"."&stamparray(loopversion)
next

set contents=filesystem.opentextfile(wscript.scriptfullname,1)
contents=split(contents.readall,nl)

unit=4^5

set files=wscript.arguments
if files.count<1 then
    do
        wait=inputbox(nl&nl&"Set a period, in milliseconds, to wait while files open:",filesystem.getbasename(scriptfile)&" v"&version&"  :  "&int(scriptfile.size/unit)&"k"&(scriptfile.size/unit-int(scriptfile.size/unit))*unit&"b  :  "&ubound(contents)&" lines",wait)
        if wait=empty then wscript.quit
        if isnumeric(wait) then exit do
    loop
    set scriptfile=filesystem.createtextfile(wscript.scriptfullname)
    for loopcontents=0to ubound(contents)
        newline=contents(loopcontents)
        if instr(newline,"wait=")>0 and isnumeric(replace(newline,"wait=","")) then newline="wait="&wait
        scriptfile.write(newline)
        if loopcontents<ubound(contents) then scriptfile.write(nl)
    next
else
    for each file in files
        shell.run """"&file&""""
        wscript.sleep wait
    next
end if
Dmatig
sumber
Yah, ini berfungsi untuk file teks dan file lain yang Windows tahu cara menangani secara default. Gagal ketika tindakan khusus ditambahkan (seperti mendaftarkan .dll) tetapi saya tidak bertanya tentang itu. Saatnya untuk melihat apakah saya dapat mengedit skrip dan membuatnya berfungsi. Terima kasih untuk tautannya.
Corin
mencoba membuat skrip terbaca; Saya bukan ahli VBS jadi semoga saya tidak melanggarnya. penurunan harga tidak senang dengan \t's di sumbernya mungkin?
Quack quixote
0

Terima kasih untuk bantuannya. Tapi saya mengambil satu langkah lagi. Saya tidak menggunakan skrip Visual Basic. Saya kapan harus mengirim ke dir dan tetapi jalan pintas untuk perangkat lunak yang ingin saya jalankan. Seperti Word, Exc, Firefox, dan sebagainya. Saya tahu Anda tidak dapat melakukan lebih dari satu jenis perangkat lunak, tetapi tentu saja baik untuk memilih semua file kata dan mengirimnya ke kata, semua tautan internet dan mengirimkannya ke Firefox, dan sebagainya.


sumber