RE: [h-e-w] Re: Dired on windows

[Nascif Abousalh-Neto]

Works on Windows 2000.
Here is an output sample:

d:\bin\emacs-21.2\bin>net use
net use
New connections will not be remembered.

Status       Local     Remote                    Network

-------------------------------------------------------------------------------
OK           L:        \\znc0s0k1\pnm_sircc      Microsoft Windows Network
             M:        \\view                    ClearCase Dynamic Views
The command completed successfully.

> -----Original Message-----
> From: Jean-Philippe Theberge [mailto:address@hidden]
> Sent: Wednesday, February 12, 2003 2:07 PM
> To: address@hidden
> Cc: address@hidden
> Subject: Re: [h-e-w] Re: Dired on windows
>
>
> address@hidden (Jeffery B. Rancier) writes:
>
> > >>>>> "Jean-Philippe" == Jean-Philippe Theberge
> <address@hidden>
> > >>>>> writes:
> >
> > I got the impression that using 'NET USE' wasn't generic enough for
> > across the board implementation?
> >
>
> Do you mean the output of 'net use' is different from one
> windows version to another? (and that this function fail to
> work if not on XP (the version I use))
>
>
> -jp
> 
> >     > Thanks you all for the hints.
> >
> >     > Here's my first draft...
> >     > (only show the network drives)
> >
> >     > (defun netdir()
> >     >   (interactive)
> >     >   (require 'widget)
> >     >   (let ((drvL))
> >     >     (with-temp-buffer
> >     >       (shell-command "net use" (current-buffer))
> >     >       (while (re-search-forward "[A-Z]: +\\\\\\\\[^
> ]+" nil t nil)
> >     >       (setq drvL (cons (split-string (match-string
> 0)) drvL))))
> >     >     (pop-to-buffer "*NET DIR LIST*")
> >     >     (erase-buffer)
> >     >     (widget-minor-mode 1)
> >     >     (mapcar
> >     >      (lambda (x)
> >     >        (lexical-let ((x x))
> >     >        (widget-create 'push-button
> >     >                       :notify (lambda (widget &rest ignore)
> >     >                                 (kill-buffer (current-buffer))
> >     >                                 (dired (car x)))
> >     >                       (concat (car x) "  " (cadr x))))
> >     >        (widget-insert "\n"))
> >     >      drvL)))
> >
> >
> >     > -jp
> >
> >
> >
> >
> >
> > --
> >
> > Thanks,
> > Jeff
> > ,----
> > | Jeffery B. Rancier
> > |
> > | Softechnics
> > | a METTLER TOLEDO company
> > `----
>
>
>
>