[Mew-Win32 03302] Re: フォルダの削除

[Takanori-Nishimura]

にしむらです。前に思ってながら書いてなかったんですが.....

Mitsugu SAKAMOTO <mitsugu at example.com> さんは
Wed, 13 Jun 2001 19:22:32 +0900 (jst) に
「[Mew-Win32 03301] Re: フォルダの削除」の件で書きました。

mitsugu> > > (add-hook 'dired-mode-hook
mitsugu> > >           '(lambda ()
mitsugu> > >              (defun delete-directory-recursive (dir)
mitsugu> > >                (interactive "s")
mitsugu> > >                (call-process "rm" nil nil nil "-rf" dir))
mitsugu> > >              (defun delete-directory (dir)
mitsugu> > >                (interactive "s")
mitsugu> > >                (delete-directory-recursive dir))))
mitsugu> > > 
mitsugu> > > などというのが書いてありました。検索したら、
mitsugu> > うわ、さすがだ。
mitsugu> っと言うことで、一応mew-win32だからcygwinが入っていないユーザ
mitsugu> のために
mitsugu> 多分これで動くとおもいます。
mitsugu> (add-hook 'dired-mode-hook
mitsugu>           '(lambda ()
mitsugu>              (defun delete-directory-recursive (dir)
mitsugu>                (interactive "s")
mitsugu>                (call-process "deltree" nil nil nil "-y" dir))
mitsugu>              (defun delete-directory (dir)
mitsugu>                (interactive "s")
mitsugu>                (delete-directory-recursive dir))))

  で、deltree は W2k にはなかったりします。

  やっぱり標準で動くとしたら rmdir /s /q  のような気がするんですが。

# といっても今手元に Win9x ないんではっきりしませんが。WinNT で OK な
  のは確実。

----------------------------------------------------------------------
西村　考則  (Takanori Nishimura)	(mailto:t-nisimr at example.com)
  株式会社SRA(Software Research Associates, Inc.)/関西支社/開発
	TEL. 06-6536-2331	FAX. 06-6536-2452