[VB] Zoekopdracht (filecheck)

[Verwijderd]

Ik wil in Visual Basic 6.0 Learning Edition
een proggie maken dat kijkt naar de aanwezigheid
van een bepaald bestand van de harde schijf.

vb. Autoexec.bat op C:

Welke source-code is hiervoor, ik kon niks
vinden in de search

BVD

[Verwijderd]

code:

if dir("C:\autoexec.bat") <> "" then
   Doe iets
end if

[Verwijderd]

Ben wel een beetje een newbie en dat script
schijnt niet echt te werken hoor, tenminste
ik heb de Doe iets ingesteld op Beep
maar hij beeped als de file wel bestaat en
als hij niet bestaat, wat doe ik fout?

[Verwijderd]

Geen idee, maar hoort gewoon te werken, typfout gemaakt?

[Verwijderd]

Op maandag 25 juni 2001 21:18 schreef Yarvieh het volgende:
Geen idee, maar hoort gewoon te werken, typfout gemaakt?

Ik heb het copy/paste gedaan, zou je
misschien het hele script willen plaatsen, want
moet er niets iets tussen "" na <>???

[Verwijderd]

ehh dit is "het hele script"

[brammetje]

zullen we het maar op die learning edition gooien, of heeft dat gewoon alle mogelijkheden?

[TheMrH]

Je kan het ook moeilijker doen met het FileSystemObject:

code:

Dim i as integer
Dim fso as FileSystemObject
set fso = new FileSystemObject
' Je kan ook late binden met 
' Dim fso as object
' Set fs = CreateObject("Scripting.FileSystemObject")
' Anders moet je een reference plaatsen via Project->References
if fso.FileExists("c:\autoexec.bat") then
    Beep
    MsgBox "Hij bestaat dus WEL"
else
    for i=0 to 100
      Beep
    next i
    MsgBox "Hij bestaat dus NIET"
end if
set fso = Nothing

Maar de code van Yarvieh moet ook gewoon werken hoor

[Verwijderd]

code:

Dir Function Example
This example uses the Dir function to check 
if certain files and directories exist. 

Dim MyFile, MyPath, MyName
' Returns "WIN.INI"  if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")   

' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI 
'file in the same directory.
MyFile = Dir

' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
   ' Ignore the current directory and the encompassing directory.
   If MyName <> "." And MyName <> ".." Then
    ' Use bitwise comparison to make sure MyName is a directory.
    If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
       Debug.Print MyName   ' Display entry only if it
    End If   ' it represents a directory.
   End If
   MyName = Dir   ' Get next entry.
Loop

Uit msdn (die cd's die je zelf als het goed is ook hebt, wellicht es in kijken voor de grap?)

[SqnLdr]

Ik zit met het zelfde probleem maar gebruik VB 2005 Express. De simpele methode doet het niet, de moeilijke geeft de error Type 'FileSystemObject' is not defined. Wat doe ik fout?

code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Integer
        Dim fso As FileSystemObject
        fso = New FileSystemObject
        If fso.FileExists("c:\autoexec.bat") Then
            Beep()
            MsgBox("Hij bestaat dus WEL")
        Else
            For i = 0 To 100
                Beep()
            Next i
            MsgBox("Hij bestaat dus NIET")
        End If
        fso = Nothing
        'MsgBox("Action failed due to file overwriting protection." + Chr(13) + "Target file already exists. Press OK to change parameters.", MsgBoxStyle.Critical, "Error!")
    End Sub

[RobIII]

whizchris schreef op zondag 04 februari 2007 @ 16:29:
Ik zit met het zelfde probleem maar gebruik VB 2005 Express. De simpele methode doet het niet, de moeilijke geeft de error Type 'FileSystemObject' is not defined. Wat doe ik fout?

code:

VB2005 is dan ook compleet andere koek dan VB6

Visual Basic .NET:

Imports System.IO

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If File.Exists("C:\autoexec.bat") Then
            MsgBox("Bestaat")
        Else
            MsgBox("Bestaat niet!")
        End If
    End Sub
End Class

Wel jammer dat je daar een topic uit 2001 voor uit de sloot rukt...

[ Voor 84% gewijzigd door RobIII op 04-02-2007 16:47 ]