[xyzzy:06022] Re: ネットワークコンピュータにつなげます？

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

Yasukazu Majimaさん、こんにちは。

	2001年1月30日(火)[01:34:05]の、
	[xyzzy:06017] ネットワークコンピュータにつなげます？
	への返事です。

| xyzzy で、ネットワークコンピュータの共有フォルダにかっ飛ぶ
| ワザってないでしょうか？　理想をいえば、L とか J コマンド

こんな?

(defun foo ()
  (multiple-value-bind (r d)
      (dialog-box '(dialog 0 0 187 157
		    (:caption "共有フォルダにかっ飛ぶかも")
		    (:font 9 "ＭＳ Ｐゴシック")
		    (:control
		     (:listbox list nil #x50a10103 7 7 119 143)
		     (:button IDOK "OK" #x50010001 130 7 50 14)
		     (:button IDCANCEL "きゃんせる" #x50010000 130 24 50 14)))
		  (list (cons 'list
			      (long-operation
				(mapcan #'(lambda (s)
					    (mapcar #'(lambda (r)
							(concat "//" s "/" r))
						    (ignore-errors (list-server-resources s))))
					(list-servers)))))
		  nil)
    (and r (setq d (cdr (assoc 'list d)))
	 (filer-chdir d))))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx