Topic: create a folder on the fly

[rude dog]

(defun c:LOG ()
(setq LOG_LAY (open "lay-INFO.TXT" "w"))
(write-line "Layer Names" LOG_LAY)
)
(close LOG_LAY)
(PRINC)

After that newbie challenge I skipped about 5 chapters to attempt an answer for the read-line function...now I find my self extremely curious about this sec. of the book....this prog. (attached) adds the txt file "lay-INFO.TXT" in my acad2000 folder which I really dont care for....is there a way to create a folder for it on the fly and place it else where?

[Kerry]

Have a look at :

(vl-file-directory-p [ filename ])

(vl-mkdir [directoryname])


Regards
kwb

[Mark]

Yes you can create a dir like Kerry mentioned or you can simply add the path to an existing dir by including it. Like so;

Code: [Select]

(setq LOG_LAY (open "c:\\foldername\\lay-INFO.TXT" "w"))

[rude dog]

thanks this will help me organize better.

[ronjonp]

Not really related but ...... here's a cool batch file for right click in explorer. It created a folder with the current date and whatever preceding text you specify.


@Echo Off
@Echo Creating A Folder With Today's Date
Set CURRDATE=%TEMP%\CURRDATE.TMP
DATE /T > %CURRDATE%
Set PARSEARG="eol=; tokens=1,2,3,4* delims=/, "
For /F %PARSEARG% %%i in (%CURRDATE%) Do SET YYYYMMDD=%%j-%%k-%%l
MKDIR "From "%YYYYMMDD%

 

[Keith™]

Hmm.... Ya know I used to make lots and lots of applications with batch, but I haven't used it in some time ... except to snag those pdf files and flash files that you can't save from the web site directly. Of course I also use one to clean up all of the bak files before I backup all of my drawings.

This is the code I use for grabbing PDF files. You can also use it for getting just about any other file type from your temp internet files.

Code: [Select]

@echo off
For /F "tokens=1* delims= " %%f in ('dir /a /s /b "%USERPROFILE%\LOCALS~1\TEMPOR~1\CONTENT.IE5\*.pdf"') do copy "%%f %%g" C:\PDF

Of course this requires that the folder C:\PDF exists, to make it grab other file types, simply change the occurences of PDF to the extension you want to grab and make sure the folder exists where you want to put them.