topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • Thursday April 25, 2024, 12:09 am
  • Proudly celebrating 15+ years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - SirSmiley [ switch to compact view ]

Pages: prev1 2 [3]
51
Crap, mouser beat me to it! :D

Anyway Congrat's on the feature.  :Thmbsup:

Your original Vbscript is sexy clean.

52
General Software Discussion / Re: What's your preferred File Manager
« on: October 17, 2007, 06:54 PM »
Correct me if I'm wrong but, your definition of a virtual folder sounds like a folder filled with hard-links?

Or did you mean something more like Smart Folders on Mac?

53
General Software Discussion / Re: What's your preferred File Manager
« on: October 17, 2007, 09:32 AM »
the problem is that we dont need just to add features to the feature-lacking windows explorer, but we need to totaly REPLACE the windows explorer, because its buggy, system resources consuming and slow

Have to disagree with the System Resources comment. Most file manager's I've tried are not always easier on resources. As for buggy it's a matter of opinion. I've never had any issues with the standard out-of-the-box Win Explorer. Most problems/crashes have been a result of poorly coded plugins, etc.
 
If Explorer crashes you normally have to reboot your PC

Maybe for older Windows OS' but, not with XP.

54
General Software Discussion / Re: What's your preferred File Manager
« on: October 12, 2007, 03:07 PM »
Now it seems that he for almost 1½ year has given up on any final version, so I ask, if your version ("build 3"?) of FindeXer has any bugs worth mentioning?

Have been using Build Version 4 (limited beta release) since April with no bugs or crashes. Had to hack the Explorer View Menu which makes it easier to toggle between Explorer Folder view. 

Haven't seen the author around for almost six months but, he travels a great deal for work. Not sure of future development atm.

Oh, forgot to mention that I use UltraExplorer occassionally.

55
The only way around that in script would be to retrieve the original timestamp(s) into a variable(array) then after updating comments reset the timestamp. What a pain.

56
Tried Tag2Find sometime ago but, it doesn't cleanup after it's self real well.

yksyks, thanks for the HobComment never heard of that one.

To answer your question, if the comment field is accessible using Shell.Application than this may be fairly easy to script and interesting idea.

57
Post New Requests Here / Re: Create New (Customized) Folder Wanted
« on: October 08, 2007, 10:11 PM »
Actually one desktop.ini is fine if you're putting all the resources in that folder just use relative links like this:
[.ShellClassInfo]
ConfirmFileOp=0
InfoTip=This is a test of InfoTip.
IconFile=resources\Antares_Favorites_Folder_Silver.ico
IconIndex=0
[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
ICONAREA_IMAGE=resources\blkBgd.bmp
ICONAREA_TEXT=33023

Oh, and this is perhaps the quickest way. Take this code & save as a vbs file then place it into your sendto folder. Right click in sendto menu to run it. This should do until I or someone gets something better coded.

Code: Visual Basic [Select]
  1. Dim WshShell, objFSO
  2. Dim templateFldr        'Template Folder
  3. Dim targetFldr          'TargetFldr
  4. Dim nFldr                       'New Folder    
  5. Dim nFldrname           'New Folder Name
  6.  
  7. 'Path to the specific template folder
  8. templateFldr="C:\Programming\Sandbox\Folder Templates\Templates\template2"
  9.  
  10. Set WshShell = CreateObject("WScript.Shell")
  11. Set objFSO = CreateObject("Scripting.FileSystemObject")
  12.  
  13. On Error Resume Next
  14.  
  15. 'Get the folder to work with
  16. If WScript.Arguments.Count = 0 Then
  17.         WScript.Quit
  18. ElseIf WScript.Arguments.Count = 1 Then
  19.         targetFldr = WScript.Arguments.Item(0)
  20.         targetFldr= objFSO.GetParentFolderName(targetFldr)&"\"
  21.         'targetFldr = objFSO.targetFldr&"\"
  22.         '--Input for New Folder Name
  23.          nFldrname=InputBox("Folder Template","Enter Name for New Folder","New Folder")
  24.                 If nFldrname="" Then
  25.                         WScript.Quit
  26.                 Else
  27.                         nFldr=targetFldr & nFldrname    'New Folder Template
  28.                         '--Call the Copy Folder Function
  29.                         Call copyFolder(templateFldr,nFldr)
  30.                  End If
  31. End If
  32.  
  33. Set objFSO = Nothing
  34. Set WshShell = Nothing
  35.  
  36. Function copyFolder(iFldr,oFldr)
  37.    objFSO.CopyFolder iFldr,oFldr
  38.    Set oFldr=objFSO.GetFolder(nFldr)
  39.    oFldr.attributes=4   'Sets attribute of Folder to System in order for the desktop.ini to work
  40.   Set oFldr=nothing
  41.    Set objFSO=nothing
  42. End Function

58
Post New Requests Here / Re: Create New (Customized) Folder Wanted
« on: October 08, 2007, 12:43 PM »
Okay, so I'm working on this in VBScript. Haven't actually written an AHK script yet, but hopefully can do this.

Here's a few questions, thoughts issues.

Copying a "Folder Template" is obviously easier and faster.

Let's say you have ten icons that you have five different backgrounds with each icon then you end up with  50 icons and 50 backgrounds instead of 10 icons and 5 background images.

So, basically you're wasting space & creating redundancy. For example I have four test template folders that already sit at 1.2mb and two don't even have backgrounds. I do realize these are full perhaps vista compliant icons but, not everyone wants to edit each icon down to the standard sizes.

IMO two separate ini files would save some space & present you with the option to vary icons, backgrounds, text colours, etc. while being efficient below are the two ini file structures. txt0, txt1,txt5,txt6,txt7 probably can be removed from the templates.ini

Just wanted to hear peoples thoughts on this.

[Template1]
icon=icon1
bgdimg=img1
resfldr=0 '1 for yes|0 for no
txt0=[.ShellClassInfo]
txt1=ConfirmFileOp=0
txt2=InfoTip=This is a test of InfoTip.
txt3=IconFile=Antares_Favorites_Folder_Black.ico
txt4=IconIndex=0
txt5=[ExtShellFolderViews]
txt6={BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
txt7=[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
txt8=ICONAREA_IMAGE=blkBgd.bmp
txt9=ICONAREA_TEXT=33023

[Icons]
icon1="C:\Path to my icons\icon.ico

[Backgrounds]
bgd1="C:\Path to my backgrounds\bgd.bmp


59
Post New Requests Here / Re: Create New (Customized) Folder Wanted
« on: October 07, 2007, 11:37 AM »
Before I head out, here's some basics of it for people to play around with.

Desktop.ini Structure
[.ShellClassInfo]
ConfirmFileOp=0
InfoTip=This is a test of InfoTip.
IconFile=Antares_Favorites_Folder_Black.ico
IconIndex=0
[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
ICONAREA_IMAGE=blkBgd.bmp
ICONAREA_TEXT=33023

Basic VBScript
Code: Visual Basic [Select]
  1. Dim templateFldr        'Template Folder
  2. Dim targetFldr          'TargetFldr
  3. Dim nFldr                       'New Folder    
  4. templateFldr="C:\Programming\Sandbox\Folder Templates\template1"        'Template
  5. targetFldr="C:\Programming\Sandbox\"    'Target folder. Must have the back slash otherwise contents will be copied
  6. nFldr=targetFldr&"template1"    'New Folder Template
  7.  
  8. Call copyFolder(templateFldr,targetFldr)
  9.  
  10. Function copyFolder(iFldr,oFldr)
  11.    Set objFSO = CreateObject("Scripting.FileSystemObject")
  12.    objFSO.CopyFolder iFldr,oFldr
  13.    Set oFldr=objFSO.GetFolder(nFldr)
  14.    oFldr.attributes=4   'Sets attribute of Folder to System in order for the desktop.ini to work
  15.   Set oFldr=nothing
  16.    Set objFSO=nothing
  17. End Function

60
Post New Requests Here / Re: Create New (Customized) Folder Wanted
« on: October 07, 2007, 01:05 AM »
 ;D Actually, I was using the WindowsPaper earlier to see how they structure the desktop.ini.

I understand what you mean "Folder Templates". Can do this in vbs but, tomorrow is a holiday here maybe by tomorrow night I'll have something.

61
Post New Requests Here / Re: Create New (Customized) Folder Wanted
« on: October 06, 2007, 09:35 PM »
So, basically you're looking for a variation of Folder Tweaker?
http://qad.dcmembers...ware/folder-tweaker/

62
General Software Discussion / Re: What's your preferred File Manager
« on: October 06, 2007, 08:17 PM »
Personally, I'm using a heavily modded version of Windows Explorer which seems to do most of the jobs. Plugins I'm using are QTTabbar, QTBreadcrumbs, FindeXer, Styler, customized Link folder with every shortcut being either a KKMenu or MenuApp menu. Also, using the old drop bar from CodeGuru which is scriptable.

63
Sorry for the bump. I belong to way to many forums. :)

I'm not familiar with the specific registry area for the context menu but, have been playing around with Fast Explorer which also has com object for developers.

It's fairly straight forward and might be of use. http://thesoftpro.tr...wnloads/fe/index.htm


64
Very Cool.
I use a Windows Explorer Plugin called FindeXer & wrote a vbs drop script for anyone who wants it.
Dim fDraft,dirName,fCount,strCommand

fDraft="C:\FileDraft\fileDraft.exe" 'Path to the FileDraft.exe
fCount="10" 'Number of files to show
'Drop script insures only one item was dropped.
'No file/folder error checking so, please just drop folders on it.
If WScript.Arguments.Count = 0 And WScript.Arguments.Count > 1 Then
  WScript.Quit
Else
dirName = WScript.Arguments.Item(0)
End If
'Build the string
strCommand=fDraft&" "&Chr(34)&dirName&Chr(34)&" "&fCount

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Exec strCommand
WScript.Quit

Pages: prev1 2 [3]