|
koliko sam uspeo da vidim knjiga je veoma dobra za pocetnike (ali nije na odmet
da i mi 'iskusniji' obnovimo gradivo  ) ali ono sto me je iznerviralo to je
da su linkovi u knjizi 'broken' 
recimo hocu da idem na poglavlje 28, dobijem gresku jer link pokazuje ka
ch28.htm fajlu koji se nalazi (tacnije: trebalo bi da se nalazi) u ch28 folderu
(dakle link je ch28\ch28.htm) ali ch28.htm se nalazi u istom folderu sa index.htm
e posto ima 30 i kusur poglavlja da ne bih rucno pravio foldere i zonglirao sa fajlovima
ja sam napisao ovo malo parce koda (bilo mi dosadno :p) koje sve to lepo sredi.
Evo postujem ovde kod jer moze nekome da zatreba a i pokazuje osnove FileSystemObjecta
(mada nije komentovan):
Public Sub Main()
Dim FSO As FileSystemObject
Dim bookDir As String
Dim d As Folder
Dim f As File
Dim s As String
Set FSO = New FileSystemObject
bookDir = "C:\WINDOWS\Desktop\using_visual_basic_6" '// ovo promenite!!!
Set d = FSO.GetFolder(bookDir)
For Each f In d.Files
If Right$(f.Name, 4) = ".gif" Then
s = FSO.BuildPath(bookDir, "button")
If Not FSO.FolderExists(s) Then
Call FSO.CreateFolder(s)
End If
Call FSO.MoveFile(f.Path, FSO.BuildPath(s, f.Name))
Else
If Not f.Name = "index.htm" Then
s = FSO.BuildPath(bookDir, Left$(f.Name, InStr(1, f.Name, ".") - 1))
If Not FSO.FolderExists(s) Then
Call FSO.CreateFolder(s)
End If
Call FSO.MoveFile(f.Path, FSO.BuildPath(s, f.Name))
End If
End If
Next
End Sub
naravno da bi ovaj kod radio morate imati postavljenu referencu na
'Microsoft Scripting Runtime' tj. File System Object...
i naravno, promenite bookDir tako da odgovara vasim potrebama
pozdrav
|
