re: KB shortcut to create new folder?
Thursday, September 11, 2003 at 1:36 am Windows 98 Annoyances Discussion Forum
Posted by cajnik
(1 messages posted)
This VB script makes a new folder with today's name
dim filesys, newfolder, newfolderName, mm,dd
set filesys=CreateObject("Scripting.FileSystemObject")
mm = month(date)
if Len(mm) = 1 then
mm = "0" & mm
end if
dd = day(date)
if Len(dd) = 1 then
dd = "0" & dd
end if
newfolderName = year(date) & mm & dd
If Not filesys.FolderExists(newfolderName) Then
Set newfolder = filesys.CreateFolder(newfolderName)
End If
On Monday, January 14, 2002 at 3:49 am, Donald wrote:
>check out Vb script at http://www.woram.com/letter/01-07.HTM
>It works a treat!
>
|
All messages in this thread [show all]
 |  |  | re: KB shortcut to create new folder? (cajnik: Thu, Sep 11, 2003, 1:36 am) |
| |
| |
Return to the Windows 98 Discussion Forum
|
|