Visual Basic 6 - überprüfung nach ordner - Sonstige Programmiersprachen

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

1

Sonntag, 17. April 2005, 02:34

Visual Basic 6 - überprüfung nach ordner

hallo

kennt einer den befehl wie ich in vb6 nach einen ordner überprüefe wenn er vorhanden ist z.b auch c: den ordner test

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

freak1985

Eroberer

Dabei seit: 15.04.2005

Beiträge: 74

2

Sonntag, 17. April 2005, 10:10

RE: Visual Basic 6 - überprüfung nach ordner

hi,

sollte so gehen

Dim vorhanden As Boolean

vorhanden = System.IO.Directory.Exists("c:\test")

MfG

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

3

Sonntag, 17. April 2005, 11:34

RE: Visual Basic 6 - überprüfung nach ordner

Zitat

Original von freak1985
vorhanden = System.IO.Directory.Exists("c:\test")

Ist das in VB 6 schon implementiert, oder erst ab VB.NET?

Ich würde sonst das Filesystemobject nehmen. In der Online-Hilfe steht auch ein Beispiel.

Gruss
Marty

Losegarten

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

4

Sonntag, 17. April 2005, 12:14

so richtig weiter komm ich erlichgesagt nicht

verstee nur bahnhof

ich kenne nur

Quellcode

Function FileExists(ByVal strFile As String) As Boolean
    FileExists = Dir(strFile) <> vbNullString
End Function
__________________________________________________

    If FileExists(myPfad_cover & myMenu & ".jpg") Then
        Game_Cover.Picture = LoadPicture(myPfad_cover & myMenu & ".jpg")
    Else
        Set Game_Cover.Picture = Nothing
    End If

aber bei ordner klapt das nicht

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

freak1985

Eroberer

Dabei seit: 15.04.2005

Beiträge: 74

5

Sonntag, 17. April 2005, 13:24

ei das kann ja auch nicht klappen...wie die fkt schon aussagt "FILEexists"

geht das net so, wie oben beschrieben?

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

6

Sonntag, 17. April 2005, 16:52

ne geht nicht

das ist die fehlermeldung die ich bekomme

	Quellcode
1 2 3	Private Sub Command1_Click() vorhanden = System.IO.Directory.Exists("c:\test") End Sub

so hab ich das mal getestet

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

lemocin

unregistriert

7

Sonntag, 17. April 2005, 20:05

Hast du überhaupt die Variable definiert?

mfg lemocin

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

8

Sonntag, 17. April 2005, 20:58

nei aber ich hab das nochmal getestet und mit Variable vorhanden geht es nicht

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

freak1985

Eroberer

Dabei seit: 15.04.2005

Beiträge: 74

9

Sonntag, 17. April 2005, 22:06

Dim vorhanden As Boolean
vorhanden = oFSO.FolderExists("c:\test")

also das muss aber gehen!!
bei mir gings auch

MfG

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

10

Montag, 18. April 2005, 08:35

Zitat

Original von freak1985
Dim vorhanden As Boolean
vorhanden = oFSO.FolderExists("c:\test")

Aber vorher oFSO noch als Filesystemobject deklarieren.

Gruss
Marty

Losegarten

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

11

Montag, 18. April 2005, 15:11

so den ersten teil geht jetzt mit den ordner

Quellcode

Dim Console As String
Dim GameISO As String
Dim Pfad As String
__________________________________________________

Public Sub onLoad()
    Console = "TurboGrafx-16 CD-Image"
    Pfad = "..\"
    GameISO = "Shadow of the Beast 1 - Immortel (Eng)"
End Sub
__________________________________________________

Public Sub ordner1()

b$ = Dir(Pfad & Console, vbDirectory)
If b$ = "" Then
    'MsgBox "Ordner existiert nicht"
    MkDir Pfad & Console
    MkDir Pfad & Console & "\" & GameISO
Else
    'MsgBox "Ordner existiert"
    MkDir Pfad & Console & "\" & GameISO
End If
End Sub

jetzt würde ich gerne das was ist unter Public Sub onLoad steht in einer .txt oder .cfg datei speichern oder das er die von den datei laed

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

freak1985

Eroberer

Dabei seit: 15.04.2005

Beiträge: 74

12

Montag, 18. April 2005, 17:27

Zitat

Original von MartyMcFly

Zitat

Original von freak1985
Dim vorhanden As Boolean
vorhanden = oFSO.FolderExists("c:\test")

Aber vorher oFSO noch als Filesystemobject deklarieren.

Gruss
Marty

na davon geh ich ja aus

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

13

Mittwoch, 20. April 2005, 09:41

help

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-

freak1985

Eroberer

Dabei seit: 15.04.2005

Beiträge: 74

14

Mittwoch, 20. April 2005, 13:20

ei erst deklarieren:

Public oFSO As New FileSystemObject

MfG

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »freak1985« (20. April 2005, 13:20)

Peacem@ker

Routinier

Dabei seit: 28.11.2002

Beiträge: 349

15

Freitag, 22. April 2005, 16:13

also ich muss schon sagen in bezug auf vb wollen einige sein wiessen nicht preisgeben

selbst in vb forum sagen die immer nur schau auf die faq
toll

oder sätze womit ich als noob nix weis was anzufangen ist

dabei will ich nur ein paar kleine sachen machen und nicht gleich ganz vb lehrnen

nur um mal ein ordner ueber vb mal umzubenenen lauf ich schon 3 wochen hinterher und nur hab ich die loesung

naja

-[Agony]::[Not All Pain Is Gain]- & -] Peacem@ker [-