[ mrkonjic86 @ 23.02.2011. 13:30 ] @
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
[ MasterOfDisaster @ 23.02.2011. 15:40 ] @
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
[ mrkonjic86 @ 24.02.2011. 06:25 ] @
Hvala velika

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

Pozzz :)
[ dava @ 24.02.2011. 08:38 ] @
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.
[ Shon3i @ 25.02.2011. 17:40 ] @
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
[ dava @ 01.03.2011. 07:46 ] @
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\
[ loto17 @ 01.03.2011. 08:32 ] @
@dava Bravo! Stari dobri DOS.
[ Aleksandar Ružičić @ 01.03.2011. 15:27 ] @
moja preporuka ti je da koristis kod koji ti je Shon3i dao, bolje je resenje nego da koristis Shell() sa dos komandama...
[ dava @ 02.03.2011. 07:37 ] @
Šta hvali korišćenju FileSystemObject-a?
Može pojašnjenje.
[ Aleksandar Ružičić @ 02.03.2011. 13:20 ] @
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