Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Visual Basic, een verborgen file aanmaken

RubeL
5 antwoorden
  • Ik werk sinds een aantal maanden met Visual basic 6.0 en dit gaat heel goed, maar nu zit ik met een probleem.

    Ik wil namelijk een bestand vanuit visual basic laten aanmaken dat ook meteen verborgen is. Is dit mogelijk en zo ja kan iemand me dan vertellen hoe dat moet.
  • x = shell("attrib "+file$+" +H")
  • Je kunt het ook met een filesystemobject doen.
    Voeg bij je references de scripting runtime toe.

    Onderstaand voorbeeld komt recht uit de MSDN help:

    Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.attributes and 32 Then
    r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
    If r = vbYes Then
    f.attributes = f.attributes - 32
    MsgBox "Archive bit is cleared."
    Else
    MsgBox "Archive bit remains set."
    End If
    Else
    r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
    If r = vbYes Then
    f.attributes = f.attributes + 32
    MsgBox "Archive bit is set."
    Else
    MsgBox "Archive bit remains clear."
    End If
    End If
    End Sub
  • [quote:5652a08f7e="pc_freak17"]Ik werk sinds een aantal maanden met Visual basic 6.0 en dit gaat heel goed, maar nu zit ik met een probleem.

    Ik wil namelijk een bestand vanuit visual basic laten aanmaken dat ook meteen verborgen is. Is dit mogelijk en zo ja kan iemand me dan vertellen hoe dat moet.[/quote:5652a08f7e]

    [code:1:5652a08f7e]

    public function MaakVerborgenBestand(byval BestandsNaam as string) as boolean

    Dim FileHandle As Long

    MaakVerborgenBestand = False
    FileHandle = CreateFile(bestandNaam,GENERIC_WRITE,FILE_SHARE_READ, _
    BYVAL 0&, CREATE_ALWAYS,FILE_ATTRIBUTE_HIDDEN)
    if (FileHandle <> INVALID_HANDLE_VALUE) then
    MaakVerborgenBestand = True
    CloseHandle(FileHandle)
    end if

    End Function
    [/code:1:5652a08f7e]
  • Hallo, mensen

    Het is gelukt. Met x=Shell("attrib file$ +H")
    Bedankt

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.