Results 1 to 10 of 10
Thread: RQ:
Hybrid View
-
10th February 2009 21:06 #1Banned
Join Date: Mar:2008
Location: ( ͡ ͜ʖ ͡)
Posts: 10,614
RQ:
. , . : 0001_ , 0002_ .
:
01356_crepuscule.jpg
01356_crepuscule_2560x1600.jpg
01356_crepuscule_1920x1200.jpg
. 1356, , . , ?
.
-
10th February 2009 22:19 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
. . . . :
00001
00002
00003
.....
01356
...
01480
.
, . , , . , .
for /f %i in (< >) do md %i
. , . , %i , .
for /f %i in (< >) do move %i* %i
. .
-
10th February 2009 23:05 #3
-
10th February 2009 23:12 #4
txt FolderView.
Time is too slow for those who wait, too swift for those who fear, too long for those who grieve, too short for those who rejoice, but for those who love, time is eternity.
-
10th February 2009 23:25 #5
-
10th February 2009 23:43 #6Banned
Join Date: Mar:2008
Location: ( ͡ ͜ʖ ͡)
Posts: 10,614
excel

=1+1 , 1 . custom, type 00000, .
-
11th February 2009 00:49 #7
- Windows Scripting Host:
1) Notepad :
2) movethem.vbsCode:Set fso = CreateObject("Scripting.FileSystemObject") Set thisFolder = fso.GetFolder(".") Dim tokens, newDirName For Each f in thisFolder.Files tokens = Split(f.Name, "_") If UBound(tokens) > 0 Then newDirName = tokens(0) If Not fso.FolderExists(newDirName) Then fso.CreateFolder(newDirName) End If f.Move(thisFolder.Path & "\" & newDirName & "\") End If Next
3) movethem.vbs .
4) !
, , , , ( ) . , , .
.. , , VBScript
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
11th February 2009 01:07 #8Banned
Join Date: Mar:2008
Location: ( ͡ ͜ʖ ͡)
Posts: 10,614
-
11th February 2009 13:20 #9Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
-
11th February 2009 01:30 #10
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others




Reply With Quote

R9 280,
7th May 2023, 21:28 in