[VB] Read Only file overschrijven

[CBA]

Is er een manier om een read only file te overschrijven met VB ?

In m'n code staat er dat de file mag overschreven worden, maar bij een read only file werkt dit niet

[pkouwer]

eerst killen, dan wegschrijven ?

[RobIII]

Read only bitje eerst eraf halen....

[CBA]

Hmm, laat ik het zo stellen, ik heb een installatie pogramma draaien dat werkt op CD, er worden bestanden gekopieerd naar een bepaalde map.

Nu is het probleem dat installatie programma staat op cd, dus alle bestanden zijn read only, dus die bestanden die terecht komen op de harde schijf zijn ook read only, bijgevolg, als ik nog eens de install doe, geeft em daar foutmeldingen op

[Alarmnummer]

RobIII schreef op 13 december 2002 @ 15:15:
Read only bitje eerst eraf halen....

[offtopic]
volgens mij is iedereen al senior software engineer. Hoeveel jaar ervaring heb je al?

[JohanDM]

Maak eerst de te overschrijven file writeable:

Visual Basic:

SetAttr strFileName, vbNormal

[RobIII]

Alarmnummer schreef op 13 december 2002 @ 15:26:
[...]


[offtopic]
volgens mij is iedereen al senior software engineer. Hoeveel jaar ervaring heb je al?

Doet dat er toe?

Heb al een dikke 10 jaar ervaring, en dan tel ik krap....

[pkouwer]

Als je de bestanden in P&D meegeeft, worden ze vanzelf not read only (of hoe dat dan ook heten mag)

correct me if I'm wrong

[TheVMaster]

RobIII schreef op 13 December 2002 @ 15:38:
[...]


Doet dat er toe?

Heb al een dikke 10 jaar ervaring, en dan tel ik krap....

offtopic:
hmm...toen was je dus 16...dan ben ik dus ook zeker Sr. Software developer..ben al bezig sinds me 11e dussuh....15 jaar ervaring

[RobIII]

Ben al sinds me 6de bezig ermee, daarom zeg ik dat ik krap tel. Sinds mijn 15e verdiende ik er wat geld mee...

En die sr. titel heb ik verdiend (niet dat die er wat toe doet, behalve op je loonstrook ).

Gaan we nu een krachtmeting houden? Heb je niks zinnigers te doen ofzo?

[Alarmnummer]

Gezien je leeftijd (het lijkt me dat een senior echt wel wat ervaring moet hebben) en je postgedrag (heb je nog niet eerder op /14 gezien) vond ik het een beetje eigenaardig dat je jezelf sr software engineer noemt (of wordt genoemt).

[KO]

RobIII schreef op 13 December 2002 @ 15:47:
Ben al sinds me 6de bezig ermee, daarom zeg ik dat ik krap tel. Sinds mijn 15e verdiende ik er wat geld mee...

En die sr. titel heb ik verdiend (niet dat die er wat toe doet, behalve op je loonstrook ).

Gaan we nu een krachtmeting houden? Heb je niks zinnigers te doen ofzo?

[offtopic]
Hoe kan je zo'n titel verdienen dan?

[pkouwer]

zo'n titel versdien je in he bedrijfsleven. Het feit dat iemand hier nieuw is wil natuurlijk niet zeggen dat hij een junior/senior developer is.

[KO]

Dat lijkt me logisch, maar dan heb je meestal al heel wat jaar ervaring (in het bedrijfsleven dan)

[Alarmnummer]

Afgezien van zijn postgedrag is hij nogal jong. Ik weet niet wat de gemiddelde leeftijd voor een beginnend professional is, maar het lijkt me dat hij toch een gedegen opleiding moet hebben afgerond + meerdere jaren ervaring als software ontwikkelaar.

Kan ook zijn dat hij zijn 'titel' heeft gekregen door de steeds meer heersende naams inflatie. Iedereen wil graag een betere naam hebben. Waarom moet een personeelchef tegenwoordig een human resource manager worden genoemt, en waarom is schoonmaakster niet goed meer, en moet het intereur verzorgster worden genoemd?

[ Voor 40% gewijzigd door Alarmnummer op 13-12-2002 16:12 ]

[KO]

hier (een groot bedrijf wat post bezorgt) is de richtlijn dat je minstens 10 ervaring moet hebben.

[pkouwer]

hmm, met de discussie junior/senior/... developer heeft de topicstarter geen antwoord op z'n vraag, dussss

Let's go OnTopic....yeah!

[mulder]

Hey, ik noem mezelf Mista Lova Lova, lekker belangrijk en niet echt ontopic.

[KO]

tis vrijdag hé

* KO denk dat de topicstarter al geholpen is

[ Voor 63% gewijzigd door KO op 13-12-2002 16:15 ]

[Alarmnummer]

[ontopic]
Ik heb hetzelfde probleem ook gehad. Ik heb het opgelost door alles even in te pakken en dat bij het installeren weer uit te pakken. Hierdoor blijfven je fileatributen goed. Verder is het ook kinderlijk eenvoudig om even een recursieve functie te schrijven die alle files even fixed.

[CBA]

KO schreef op 13 December 2002 @ 16:14:
tis vrijdag hé

* KO denk dat de topicstarter al geholpen is

Fout

heb ondertussen zelf al iets geprobeerd, maar 't lukt niet echt.

ik heb nu:

code:

strfile = wordbankpath & filename
myfile = Dir("strfile", vbReadOnly)
MsgBox myfile
If myfile <> "" Then
    SetAttr (strfile), vbNormal
End If

maar de msgbox van myfile is altijd leeg en de bestandsnaam bestaat echt en de file is ook readonly ...

[CBA]

Alarmnummer schreef op 13 december 2002 @ 16:15:
[ontopic]
Ik heb hetzelfde probleem ook gehad. Ik heb het opgelost door alles even in te pakken en dat bij het installeren weer uit te pakken. Hierdoor blijfven je fileatributen goed. Verder is het ook kinderlijk eenvoudig om even een recursieve functie te schrijven die alle files even fixed.

Alarmnummer, ik ben geen programmeur hé

ik ben een netwerkbeheerder en desktop publisher, maar ik moet eigenlijk alleen maar doen wat de anderen hier niet kunnen ...

[mulder]

is myFile misschien . of ..?

[ Voor 4% gewijzigd door mulder op 13-12-2002 16:24 ]

[KO]

oke dan:

code:

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

Deze is mischien ook wel belangrijk:

ReadOnly = 1 Attribute is read/write.

[ Voor 12% gewijzigd door KO op 13-12-2002 16:26 ]

[Alarmnummer]

Als je een installer gebruikt, kan je ze dan niet even in een 'cab' file ofzo zetten?

[Glimi]

Geen gezeik meer over titel, of hoe de hell iemand zich ook noemt ajb

[mulder]

KO schreef op 13 december 2002 @ 16:24:
oke dan:

code:

...

Deze is mischien ook wel belangrijk:

ReadOnly = 1 Attribute is read/write.

Dan gebruik je dus de VBScript engine, niet echt mooi... Zou het eigenlijk met API's moeten doen, maar dat is misschien iets te voor TS.

[ Voor 57% gewijzigd door mulder op 13-12-2002 16:28 ]

[KO]

Dit is gewoon het VB file system object hoor. Pure Visual basic dus.

Je kan dus ook :

code:

Dim fs as new FileSystemObject

gebruiken

[ Voor 40% gewijzigd door KO op 13-12-2002 16:30 ]

[mulder]

Scripting.FileSystemObject. Een COM object en dus al helemaal niet puur Visual Basic.

[KO]

Don Facundo schreef op 13 December 2002 @ 16:30:
Scripting.FileSystemObject. Een COM object en dus al helemaal niet puur Visual Basic.

jij wint

[CBA]

Alarmnummer schreef op 13 December 2002 @ 16:25:
Als je een installer gebruikt, kan je ze dan niet even in een 'cab' file ofzo zetten?

Ik gebruik niet echt een installer, ik kopieer zo dmv van vb en een path uit de registry van cd naar de juiste map ...

eigenlijk zou ik een manier moeten hebben om de read only file te kopieren als niet read only file in één stap.

[KO]

je kan ook in de msdn naar: Attributes Property zoeken.

[CBA]

mijn code:

code:

strfile = wordbankpath & filename
myfile = Dir(strfile, vbReadOnly)
'MsgBox myfile
If myfile <> "" Then
    SetAttr (strfile), vbNormal
End If

Werkt
Bedankt om te helpen ...

[robjanssen]

[code]
strfile = wordbankpath & filename
myfile = Dir("strfile", vbReadOnly)
MsgBox myfile
If myfile <> "" Then
SetAttr (strfile), vbNormal
End If
[code]

Je moet de quote's om strfile weglaten, dan wordt de code dus:

code:

strfile = wordbankpath & filename
myfile = Dir(strfile, vbReadOnly)
MsgBox myfile
If myfile <> "" Then
    SetAttr (strfile), vbNormal
End If

Maar je kunt ook gewoon alle files uit de dir pakken, dan wordt de code

code:

strfile = wordbankpath & "*.*"
myfile = Dir(wordbankpath, vbReadOnly)
MsgBox myfile
While myfile <> "" Then
    SetAttr (myFile), vbNormal
    myFile = Dir
Wend

[ Voor 10% gewijzigd door robjanssen op 14-12-2002 10:17 ]

[CBA]

robjanssen schreef op 14 December 2002 @ 10:16:
[code]
strfile = wordbankpath & filename
myfile = Dir("strfile", vbReadOnly)
MsgBox myfile
If myfile <> "" Then
SetAttr (strfile), vbNormal
End If
[code]

Je moet de quote's om strfile weglaten, dan wordt de code dus:

code:

strfile = wordbankpath & filename
myfile = Dir(strfile, vbReadOnly)
MsgBox myfile
If myfile <> "" Then
    SetAttr (strfile), vbNormal
End If

Maar je kunt ook gewoon alle files uit de dir pakken, dan wordt de code

code:

strfile = wordbankpath & "*.*"
myfile = Dir(wordbankpath, vbReadOnly)
MsgBox myfile
While myfile <> "" Then
    SetAttr (myFile), vbNormal
    myFile = Dir
Wend

Ah leuk, neemt em dan ook de subdirs of moet ik die even apart doen ?

[CBA]

robjanssen schreef op 14 December 2002 @ 10:16:
Maar je kunt ook gewoon alle files uit de dir pakken, dan wordt de code

code:

strfile = wordbankpath & "*.*"
myfile = Dir(wordbankpath, vbReadOnly)
MsgBox myfile
While myfile <> "" Then
    SetAttr (myFile), vbNormal
    myFile = Dir
Wend

Ik krijg compile error, expected end of statement op de lijn While myfile <> "" Then

[OZ-Gump]

Ik krijg compile error, expected end of statement op de lijn While myfile <> "" Then

Dat heeft er waarschijnlijk mee te maken dat na een while meestal geen then staat

[CBA]

Het werkt niet echt, als ik msgbox myfile doe krijg ik de juiste file te zien, de eerste in de dir, maar dan krijg ik de foutmelding, file not found ...

[OZ-Gump]

Volgens mij moet er staan MyFile = dir(strfile, vbReadOnly) in plaats van MyFile = dir(workbankpath, vbReadOnly). Anders doet bijvoorbeeld die *.* ook niks af, want dan doe je verder niks met die strfile-variabele.

[ Voor 5% gewijzigd door OZ-Gump op 16-12-2002 10:20 ]

[CBA]

yep indd dat moet er staan, maar dan neemt em den eersten file, maar doet er niks op en dan geeft ie een melding file not found, heb dan maar een tellerken gemaakt en zo werkt het wel