MyCity » Visual Studio -> Visual Basic » Atributi

Atributi

Napisano na dan: 22.10.2003

Atributi
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Okt 2003 12:33
Idi na vrh
offline
  • Pridružio: 05 Sep 2003
  • Poruke: 7

Molim programere u VB da mi napisu proceduru za menjanje ATRIBUTA
svih fajlova u direktorijumu ili delimicnih (uslovljenih),.
HVALA !


Crying or Very sad Idea



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 23 Okt 2003 18:21
Idi na vrh
offline
  • Pridružio: 16 Jun 2003
  • Poruke: 240

Procedura za citanje atributov:

Sub ShowFiles() ' Displays the names and attributes of all files in ' the specifed directory Dim sAttr As Integer Dim fName As String Dim pName As String Dim fCount As Integer pName = InputBox("Enter a directory to search in: ") If Trim(pName) = " " Then Exit Sub If Right(pName, 1) <> "\" Then pName = pName & "\" sAttr = vbDirectory + vbArchive + vreadonly + _         vbHidden + vbSystem     'get the first file name and atributes fName = Dir(pName & "*.*", sAttr) If (fName <> " ") And _ ((fName <> ".") And (fName <> "..")) Then     ShowFileAttr pName & fName     fCount = 1 End If Do While (fName <> " ")     fName = Dir()     If ((fName <> ".") And (fName <> ".")) Then     ShowFileAttr pName & fName     fCount = fCount + 1     End If Loop MsgBox fCount & " files found." End Sub Sub ShowFileAttr(fName As String) 'displays a message box showing the file attributes of the 'filename in the fName argument Dim fAttr As Integer Dim mStr As String fAttr = GetAttr(fName) mStr = UCase(fName) mStr = mStr & " has these attributes: " & vbCr If (fAttr And vbReadOnly) Then _     mStr = mStr & "Read-Only" & vbCr If (fAttr And vbHidden) Then _     mStr = mStr & "Hidden" & vbCr If (fAttr And vbSystem) Then     mStr = mStr & "system" & vbCr If (fAttr And vbVolume) Then _     mStr = mStr & "Volume" & vbCr If (fAttr And vbDirectory) Then _     mStr = mStr & "Directory" & vbCr If (fAttr & vbArchive) Then _     mStr = mStr & "Archive" & vbCr End If MsgBox mStr End Sub

Sad samo obratni postupak.



Poslao: 24 Okt 2003 08:59
Idi na vrh
offline
  • Pridružio: 05 Sep 2003
  • Poruke: 7

Zahvaljujem SantaCruz-u !

MyCity » Visual Studio -> Visual Basic » Atributi

Ko je trenutno na forumu
 

Ukupno su 1837 korisnika na forumu :: 117 registrovanih, 13 sakrivenih i 1707 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 19602 - dana 30 Mar 2026 00:11

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 037, A.R.Chafee.Jr., advokat84, Ahilius, AK - 230, AleksandarV, alkanuta, ArmFPGA, asdfjklc, Asteker, Ba4e, babaroga, Barista, bax0904, Bbbggg1979, borkostojicevic, Boroš, bpop, brandža84, Branko Matić, cifra, Cigi, Comyymoc, croato, darionis, Darth Malak, dd201176, dejandr, Denaya, Dioniss, doom83, Dorcolac, Draganeli, DrNeoCortex, dulleo, dzada, EXIT78, Feller, gasha, Georgius, Gogi_avio, Great White, Grochow, ibssa, igorpet, Insan, jalos, Jaxupa, Jecmendo, Jester, kib, kolateralnasteta, kolle.the.kid, Komanca, kripo, Kum Ruzvelt, ladro, luka35, mainstream, Manjane, Marko1238, matrix_1, mercedesamg, Metanoja, Miki281, Milan Miscevic, Mili026, Mirage 2000N, Mis uz pusku, moldway, narandzasti, nelezele, nikolapetkovic, Nomica, obsc, OgnjenMitric, orah, PedjaDikovic, ping15, Plavi Jadran, Polifon, rambod, Ray1973, Rok A Bit, ruma, S-lash, Salence74, sasakrajina, shadower78, Slingshot, spot4chulle, StalniPromatrač, stegonosa, styg, taomaster, Tas011, Teodor60, tmanda323, travisrise, trutcina, umpah-pah, Vanderx, Vatreni Zmaj, vensla, Vladimir90, VNVK, Voice1, Vojkan Petrovic, vukajlo71, wizzardone, Zanzibar, Zeljo980, zil10, ZlatniRez, zoran77, zziko, 800077