AutoHotkey Community

It is currently May 26th, 2012, 11:52 am

All times are UTC [ DST ]




Post new topic Reply to topic  [ 4 posts ] 
Author Message
PostPosted: September 2nd, 2008, 4:31 pm 
Offline

Joined: May 17th, 2007, 4:49 pm
Posts: 38
How I can get same values as Au3Info Statusbar tab shows
It shows
1. number of objects
2. filesize of all objects
3. My computer

I need number of files to get rid off inputbox.
And why this script freeze my computer :/
Click the first file on the folder and press n. Then input the number of the files on that folder. Then tadaa... all names are on textfile.
If somebody knows how to make this better and easier, please tell.
Code:
n::
SysGet, VSW, 78
SysGet, VSH, 79
X:= %VSW%/2-90
Y:=%VSH%/2-60
InputBox, OutputVar, Number of the files ?, , , 180, 120, %X%, %Y%
Loop, %OutputVar%
{
SendPlay ^c
Sleep, 20
StringReplace, clipboard, clipboard, %A_WorkingDir%, , All
Sleep, 20
FileAppend, %ClipBoard%`n, %A_WorkingDir%/Kappaleet.txt
Sleep, 20
SendPlay {Down}
Sleep, 20
}
Return


Report this post
Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: September 2nd, 2008, 5:46 pm 
Offline
User avatar

Joined: December 26th, 2005, 4:40 pm
Posts: 8776
Code:
^F2::
 Clipboard=
 Send ^a
 Send ^c
 clipwait, 2
 Files := Clipboard
 MsgBox, % Files ; Use fileappend instead
Return


Run the code and Press ^F2 when Windows Explorer right pane is active

:)

_________________
URLGet - Internet Explorer based Downloader
StartEx - Portable Shortcut Link


Report this post
Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: September 2nd, 2008, 6:34 pm 
Offline

Joined: May 17th, 2007, 4:49 pm
Posts: 38
Haha thanks SKAN.
You make me look like an idiot :D


Report this post
Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: September 2nd, 2008, 9:08 pm 
Offline

Joined: May 17th, 2007, 4:49 pm
Posts: 38
Now I can easily remove _-marks from mp3 files and others.
Code:
^F2::
Clipboard=
Send ^a
Send ^c
clipwait, 2
Files := Clipboard
FileAppend, % Files, %A_WorkingDir%\Kappaleet.txt
number = 0
Loop
{
number++
FileReadLine, line%number%, %A_WorkingDir%\Kappaleet.txt, %A_Index%
if ErrorLevel
break
Fix:= % line%number%
StringReplace, Fix, Fix, %A_WorkingDir%\,,All
StringReplace, Fix, Fix, _,%A_SPACE%,All
FileMove, % line%number%, %A_WorkingDir%\%Fix%
}
FileDelete, %A_WorkingDir%\Kappaleet.txt
ExitApp

But propably SKAN will come again and do this better :/


Report this post
Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 4 posts ] 

All times are UTC [ DST ]


Who is online

Users browsing this forum: Bing [Bot], BrandonHotkey, Exabot [Bot], Yahoo [Bot] and 23 guests


You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Powered by phpBB® Forum Software © phpBB Group