Provjera foldera

Provjera foldera 23.02.2011. u 14:30 · pre 190 meseci #1

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

Re: Provjera foldera 23.02.2011. u 16:40 · pre 190 meseci #2

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

1

Re: Provjera foldera 24.02.2011. u 07:25 · pre 190 meseci #3

Hvala velika

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

Pozzz :)

Re: Provjera foldera 24.02.2011. u 09:38 · pre 190 meseci #4

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.

Potpis

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

Re: Provjera foldera 25.02.2011. u 18:40 · pre 190 meseci #5

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

Re: Provjera foldera 01.03.2011. u 08:46 · pre 190 meseci #6

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\

Potpis

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

Re: Provjera foldera 01.03.2011. u 09:32 · pre 190 meseci #7

@dava Bravo! Stari dobri DOS.

Re: Provjera foldera 01.03.2011. u 16:27 · pre 190 meseci #8

moja preporuka ti je da koristis kod koji ti je Shon3i dao, bolje je resenje nego da koristis Shell() sa dos komandama...

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Provjera foldera 02.03.2011. u 08:37 · pre 190 meseci #9

Šta hvali korišćenju FileSystemObject-a?
Može pojašnjenje.

Potpis

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

Re: Provjera foldera 02.03.2011. u 14:20 · pre 190 meseci #10

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Forum kao aplikacija na telefonu

Srodne teme