Za pocetnike kako koristiti vb ...

2

Za pocetnike kako koristiti vb ...

offline
  • m4rk0  Male
  • Administrator
  • Administrator tech foruma
  • Marko Vasić
  • Gladijator - Maximus Decimus Meridius
  • Pridružio: 14 Jan 2005
  • Poruke: 15766
  • Gde živiš: Majur (Colosseum)

http://www.mycity.rs/phpbb/viewtopic.php?t=17597



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4198
  • Gde živiš: U zlatnom kavezu

Brksi is back. Topic unlocked. Link is fixed. It works.



offline
  • Pridružio: 31 Mar 2005
  • Poruke: 116
  • Gde živiš: Beograd

Sad radi Very Happy

offline
  • Pridružio: 15 Jul 2005
  • Poruke: 36
  • Gde živiš: Cacak

koliko sam uspeo da vidim knjiga je veoma dobra za pocetnike (ali nije na odmet
da i mi 'iskusniji' obnovimo gradivo Very Happy) ali ono sto me je iznerviralo to je
da su linkovi u knjizi 'broken' Sad
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

Ko je trenutno na forumu
 

Ukupno su 637 korisnika na forumu :: 37 registrovanih, 7 sakrivenih i 593 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 8u47, _Sale, A.R.Chafee.Jr., BlackPhantom, Buzdovan, cole77, Cranium, Doc, Doca, ekser222, Faki-Valjevo, goxin, konstruktor, krkalon, Kruger, KUZMAR, Lošmi, madza, mercedesamg, Mercury, Misirac, Mitraljeta, moldway, Nebo_M, nenad81, ostoja, Profica, repac, Roman, sergio88nis, shone34, Snorks, Suva planina, Toper, Uki19989, vlvl, voja64