anoniem Geplaatst: 23 maart 2003 Delen Geplaatst: 23 maart 2003 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 Link naar reactie
anoniem Geplaatst: 24 maart 2003 Auteur Delen Geplaatst: 24 maart 2003 x = shell("attrib "+file$+" +H") Quote Link naar reactie
anoniem Geplaatst: 24 maart 2003 Auteur Delen Geplaatst: 24 maart 2003 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 Link naar reactie
anoniem Geplaatst: 29 maart 2003 Auteur Delen Geplaatst: 29 maart 2003 [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] Quote Link naar reactie
anoniem Geplaatst: 30 maart 2003 Auteur Delen Geplaatst: 30 maart 2003 Hallo, mensen Het is gelukt. Met x=Shell("attrib file$ +H") Bedankt Quote Link naar reactie
anoniem Geplaatst: 30 maart 2003 Auteur Delen Geplaatst: 30 maart 2003 Inderdaad, het werkt. Maar het is niet de mooiste manier (wel de makkelijkste); je voert eigenlijk gewoon een DOS-commando uit (te weten attrib). Mogelijk krijg je hierdoor in een flits een DOS-box te zien. Daarnaast weet je nooit zeker of het wel gelukt is; attrib wordt uitgevoerd maar geeft geen informatie terug. De methode van h4xX0r is wat dat betreft een stuk mooier. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen