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 824 korisnika na forumu :: 63 registrovanih, 7 sakrivenih i 754 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 6.5lapua, advokat84, Babilon3, batana, bobo85, bokicacar, Boris.A, bounty hunters, bpvl, Centauro, DaliborVukadinovic, dule10savic, Electron, Giskard, Hemi, Ikica977, Incognito, Iskander, Ivica1102, Jose, kasikaz, kikisp, koom0001, kunktator, littlebunny, Lucije Kvint, MagicniHerpes, Marko Marković, max power, MiGac, Miki01, milanstankovic087, mino bosanac, mir juzni, mkukoleca, MR Z, mrm, Muki 123, nebkv, nenooo, orah, pacika, pein, Pekman, RJ, Robin, rovac, sap, saputnik plavetnila, sasics, Sharpshooter, Smiljkovich, Solunac na steroidima, Sonic, ujke, ulogovan, umpah-pah, uros, Uros Cuore Sportivo, vazduh, Veselimalisa, voja64, zemljanin