1樓：難得糊塗
private sub command1_click()t = "d:\new\1.txt" '你的檔案路徑me.visible = false
m = msgbox("是否要開啟" & t & "檔案", vbyesno)
if m = vbyes then
'呼叫方法
select case mid(t, instrrev(t, ".") + 1)
case "txt"
shell "c:\windows\notepad.exe " & t, vbnormalfocus
case "exe", "com", "bat", "cmd"
shell t
end select
end if
me.visible = true
end sub
2樓：亞馬遜選品管家
'用shellexecute這個api就好了
private declare function shellexecute _
lib "shell32.dll" _
alias "shellexecutea" ( _
byval hwnd as long, _
byval lpoperation as string, _
byval lpfile as string, _
byval lpparameters as string, _
byval lpdirectory as string, _
byval nshowcmd as long) _
as long
private const sw_shownormal = 1
sub selectfile(byval filepath as string)
dim param as string
param = "/select," + filepath
shellexecute byval 0, "open", "explorer.exe", param, "", sw_shownormal
end sub
' selectfile "c:\1.txt" 就會開啟資源管理器，選擇1這個檔案。
如何共享資料夾，如何開啟對方共享資料夾
把需要的東西共享就可以了 1.點中要共享的資料夾或磁碟右鍵屬性或共享和安全，看 把那個地方打溝溝點應用 確定就好了，如果不能點就像那張 一樣是共享服務沒有開 能點話就不用下面這步了 點開始 設定 控制面板 管理工具 服務 在那些英文裡面找 server 這一項 然後雙擊 開啟它的屬性頁面 在看 我這...
資料夾選項，資料夾選項 顯示所有檔案和資料夾 失效
方法一 1 在windows工作列中依次單擊 開始 執行，然後在執行框中輸入 regedit 開啟登錄檔編輯器。2 將登錄檔定位到hkey local machine software microsoft windows currentversion explorer advanced folder...
我的電腦中病毒了，只要一開啟資料夾，資料夾中的資料夾都會自動複製一份
這不是病毒，你來一定是在用excle或者源word在編輯吧！這個特殊的檔案是在預存你所編輯的圖表，這是一個隱藏的系統資料夾，與系統還原有關係。如果要刪除要用到組策略 賺定你10分了！把郵箱發來。我發個修復隱藏檔案屬性的軟體給你。之後就一切ok了！修好後記得給分哦！system volume info...