[VBs] Error 800A0046 in VB script Office

[Tallguy]

Op ons werk krijgt een bepaalde usergroup de melding dat zij geen toegang hebben op een regel in een VBscript.

Het stukje script (zonder goede opmaak helaas) zit hieronder (de regel die als fout wordt aangegeven is met bold gemarkeerd regel 24)

VBScript:

Function KopieerAlsNieuwer(strFileNaam, strFolderVan, strFolderNaar, intPercentage)
    Dim objFile         ' Instantie van object dat verwijst naar rio.mdb.
    Dim strFileVan      ' Copmplete pad source-bestand
    Dim strFileNaar     ' Complete pad doel-bestand
    Dim iGewijzigdNaar  ' Integer die de lastmodified bevat van rio.mdb op werkplek. Geen = 0.
    Dim iGewijzigdVan       ' Integer die de lastmodified bevat van rio.mdb op server. Geen = error.

    strFileVan = strFolderVan & "\" & strFileNaam
    strFileNaar = strFolderNaar & "\" & strFileNaam
    If FileSysObj.FileExists(strFileVan) Then
        If FileSysObj.FolderExists(strFolderNaar) Then
            If FileSysObj.FileExists(strFileNaar) Then
                Set objFile = FileSysObj.GetFile(strFileNaar)
                iGewijzigdNaar = objFile.DateLastModified
            Else
                iGewijzigdNaar = 0
            End If              
            Set objFile = FileSysObj.GetFile(strFileVan)
            iGewijzigdVan = objFile.DateLastModified
            If idebuggen Then Call loggen(strFileNaam & " doelbestand datum = " & iGewijzigdNaar,intPercentage)
            If idebuggen Then Call loggen(strFileNaam & " bronbestand datum = " & iGewijzigdVan,intPercentage)
            If iGewijzigdVan >= iGewijzigdNaar Then
                If idebuggen Then Call loggen(strFileNaam & " synchroniseren.",intPercentage)
                FileSysObj.CopyFile strFileVan,strFileNaar, True
            End If
        Else
            If idebuggen Then Call loggen("Folder: " & strFolderNaar & " is niet gevonden!",intPercentage)
        End If
    Else
        If idebuggen Then Call loggen("Fout: " & strFileVan & " Is niet gevonden!",intPercentage)
    End If
End Function

Ik ben zelf geen programmeur, maar men wilde toch dat ik hier eens naar keek. Ik heb op Google gezocht en op GoT en heb hiervan meegekregen dat dit om een permissie (vaak schrijfrechten) probleem gaat.
Ik weet alleen niet of dit dan op de server zelf mis gaat, of op een server die aangeroepen wordt. En als het dat laatste is, dan is mijn vraag...waar? Is het die RIO.MDB soms??

Ik hoop dat iemand mij hiermee kan helpen als totale no-no in programmeergebied

[ Voor 0% gewijzigd door RobIII op 20-09-2006 20:51 ]

[farlane]

Heb je dan al gechecked of die usergroup schrijfrechten heeft op die plek op de server?

[RobIII]

Als je code post kun je [code] tags gebruiken. Ik heb je bericht aangepast.

De foutmelding gaat over het kopiëren als jij zegt dat het over betreffende regel 24 gaat...Dat zou betekenen (wat farlane ook zegt) dat je waarschijnlijk niet voldoende rechten hebt (die groep dus).

Als ik google op copyfile 800A0046 wijst dat allemaal in dezelfde richting: "permission denied". Als je wil weten welk pad het precies is vervang je regel 24 door:

VBScript:

MsgBox strFileNaar

De eigenlijke copy wordt dan niet uitgevoerd, maar het bestemmings pad/bestand word weergegeven.

[ Voor 40% gewijzigd door RobIII op 20-09-2006 20:53 ]

[Tallguy]

ik ga het morgen uitproberen.

En Mod; bedankt voor het aanpassen.

[ Voor 42% gewijzigd door Tallguy op 20-09-2006 20:59 ]

[Tallguy]

meneer de Mod, dit topic mag dicht hoor.

[RobIII]

Als je een oplossing hebt gevonden wordt het wel op prijs gesteld als je het ook even post, al is het nog zo simpel. Zie ook hier. Op die manier hebben mensen die (in de toekomst) de search gebruiken en dit topic vinden ook nog iets aan je topic.
En topics die "klaar" zijn hoeven niet op slot, we laten ze in het duistere diepe zakken

[ Voor 16% gewijzigd door RobIII op 22-09-2006 12:29 ]

[Tallguy]

Nou, ik kan de oplossing die hier werd uitgedragen niet toepassen omdat dan ettelijke honderden mensen daar last van zouden hebben, Was nl stukje uit het grote, almachtige loginscript.

Met wat Filemon erachter gekomen dat er inderdaad iets mis ging met dat rio verhaal. Bleek uiteindelijk dat bij de uitrol van PC's een bepaalde file van Rio was vergeten
Dat was dus de reden en oplossing.