ibuffer-ido-find-file.el

(defun ibuffer-ido-find-file ()
  "Like `ido-find-file', but default to the directory of the buffer at point."
  (interactive)
  (let ((default-directory
          (let ((buf (ibuffer-current-buffer)))
            (if (buffer-live-p buf)
                (with-current-buffer buf
                  default-directory)
              default-directory))))
    (ido-find-file-in-dir default-directory)))