Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Provjera foldera

[es] :: Visual Basic 6 :: Provjera foldera

[ Pregleda: 3632 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mrkonjic86

Član broj: 253569
Poruke: 16
92.36.222.*



+1 Profil

icon Provjera foldera23.02.2011. u 13:30 - pre 159 meseci
Pozdrav svima,

Naime moj problem je sljedeći

Kako da provjerim dali postoji folder pod imenom "Test" na putanji "C:\Test", ako ne postoji taj folder da ga VB6 kodom napravi, a ako postoji da ništa ne pravi.

Npr.

Code:

If "C:\Test" = postoji Then 'Ako folder Test postoji onda
   Msgbox "OK" 'Nikome ništa
Else 'Ako nepostoji
   MkDir ("C:\Test") 'Napravi ga
End If



Molim za pomoć ako neko zna, vjerujem da zna ;)

Pozz
 
Odgovor na temu

MasterOfDisaster
Srbija

Član broj: 274933
Poruke: 71
*.dynamic.isp.telekom.rs.



+4 Profil

icon Re: Provjera foldera23.02.2011. u 15:40 - pre 159 meseci
Evo ga:

Code:

Option Explicit

Private Sub Command1_Click()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.folderexists("C:\Test") Then
   MsgBox "OK" 'Nikome ništa
Else 'Ako nepostoji
   MkDir ("C:\Test") 'Napravi ga
End If

End Sub


Pozdrav
 
Odgovor na temu

mrkonjic86

Član broj: 253569
Poruke: 16
92.36.130.*



+1 Profil

icon Re: Provjera foldera24.02.2011. u 06:25 - pre 159 meseci
Hvala velika

Ovo radi i to je ono što sam želio znati.

Pozzz :)
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: Provjera foldera24.02.2011. u 08:38 - pre 159 meseci
Samo da dopunim ovo rješenje.

Da bi nakon kucanja imena objekta fso. dobio listu metoda koje postoje koristi ovakvu deklaraciju objekta:

Code:

' Prvo u referencama dodaj objekat 'Microsoft scripting runtime'

Dim fso As FileSystemObject
Set fso = New FileSystemObject


nakon deklaracije i instanciranja objekta kucaj fso.
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

Shon3i
Beograd

Član broj: 85406
Poruke: 1173
*.dynamic.sbb.rs.



+56 Profil

icon Re: Provjera foldera25.02.2011. u 17:40 - pre 159 meseci
A mozda jos laksa bez ikakvih objekata?

Code:
If Dir("C:\Test",vbDirectory) <> "" Then
   Msgbox "OK" 'Nikome ništa
Else 'Ako nepostoji
   MkDir ("C:\Test") 'Napravi ga
End If
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: Provjera foldera01.03.2011. u 07:46 - pre 159 meseci
U mom postu sam imao namjeru da pokazem covjeku korisne funkcije koje posjeduje objekat fso

A ako ćemo šta je lakse, moze i bez VB-a, samo batch file i kod:

Code:
if not exist C:\Test\ mkdir C:\Test\

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

loto17

Član broj: 184930
Poruke: 110
*.ptt.rs.



+4 Profil

icon Re: Provjera foldera01.03.2011. u 08:32 - pre 159 meseci
@dava Bravo! Stari dobri DOS.
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Provjera foldera01.03.2011. u 15:27 - pre 159 meseci
moja preporuka ti je da koristis kod koji ti je Shon3i dao, bolje je resenje nego da koristis Shell() sa dos komandama...
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: Provjera foldera02.03.2011. u 07:37 - pre 159 meseci
Šta hvali korišćenju FileSystemObject-a?
Može pojašnjenje.
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Provjera foldera02.03.2011. u 13:20 - pre 159 meseci
ne fali mu nista, i on ce raditi bez ikakvih problema. ali kad vec imas builtin funkciju u vb6 runtime-u zasto bi ti exe zavisio od jos jednog dll-a kad ne mora?
danas to naravno nije veliki problem kad je vb6 u pitanju, jer su oba dll-a deo novijih windows verzija, ali u doba kad sam ja radio u vb6 i o tome je moralo da se vodi racuna :)

dakle, ja sam to uvek ovako proveravao:
Code (vb):

If LenB(Dir("C:\Test", vbDirectory)) > 0 Then
    ' Postoji
Else
    ' Ne postoji
End If
 


a i ja u predhodnoj poruci nisam rekao nista protiv FSO pristupa, vec protiv Shell()-a
 
Odgovor na temu

[es] :: Visual Basic 6 :: Provjera foldera

[ Pregleda: 3632 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.