[VBScript] Van ene naar andere networkshare kopieren *

[Fat Baba]

Beste Tweakers,

als ik het volgende script uitvoer

Visual Basic:

Option Explicit
Dim objFSO, objTextFile, strText, arrUsers, strUser
Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\users.txt", ForReading)

strText = objTextFile.ReadAll
objTextFile.Close

arrUsers = Split(strText, vbCrLf)

For Each strUser In arrUsers
    CopyBookmarks (strUser)
Next


rem ______________________________________________SUB___________________
Sub CopyBookmarks (argUser)

Dim object, strFilePath, strDestination
Set object = CreateObject("Scripting.FileSystemObject")
If object.FolderExists("\\fzrmfs-i01\profiles\" + argUser + ".000")Then
strFilePath = ("\\fzrmfs-i01\profiles\" + argUser + ".000\Favorites\*.*")
Else 
strFilePath =("\\fzrmfs-i01\profiles\" + argUser + "\Favorites\*.*")
End If
strDestination =("\\fzr-cl01-home-server\home\" + argUser +"\Windows NT 5.1 Workstation Profile\Favorieten\*")

object.CopyFolder strFilePath, strDestination ,True
End Sub

krijg ik steeds een rare foutmelding doe ik iets fout?
iemand een idee

[ Voor 0% gewijzigd door een moderator op 27-12-2007 15:34 . Reden: Code tags toegevoegd ]

[MAX3400]

Welke foutmelding?
Kan je gebruik maken van de CODE-tags?

[Swaptor]

Ja je doet iets fout.
Je post je vraag + script zonder werk vooraf om te kijken waar het fout gaat, en verwacht dat "wij" het wel even voor je oplossen.

Ga eerst debuggen, plemp echo's neer, test het script in delen, etc. Post daarna de specifieke foutmelding hier als (en alleen als) je er zelf niet uitkomt.

[Qman]

For Each strUser In arrUsers
CopyBookmarks (strUser)
Next

Zonder heel diep in te gaan op testen en andere mogelijkheden om hier zelf achter te komen,
je functioncall is niet juist voor VBS.
Als je een function aanroept zonder output te verwachten gebruik je:

code:

CopyBookmarks strUser

Indien je output uit je function terug zou willen krijgen, zou je iets dergelijks moeten doen:

code:

strResult = CopyBookmarks(strUser)

[RobIII]

Als je code post, gebruik dan code tags
Daarnaast zijn wij geen afhaalbalie voor kant-en-klare oplossingen en kun je hier dus niet zomaar een lap code dumpen en zeggen "krijg ik steeds een rare foutmelding". Geef op z'n minst aan welke foutmelding en laat zien wat je al geprobeerd hebt (debuggen helpt: Debuggen: Hoe doe ik dat?)

Anyway; gelieve een nieuw topic te maken als je er met bovenstaande tips nog niet uitgekomen bent, maar hou je dan wel aan onze Programming Beleid Quickstart

Qman schreef op donderdag 27 december 2007 @ 15:11:
[...]

Zonder heel diep in te gaan op testen en andere mogelijkheden om hier zelf achter te komen,
je functioncall is niet juist voor VBS.

Waarbij VBS bij 1 parameter niet valt over haakjes*, en meerdere parameters wel als ik me niet vergis

* Dit omdat de parameter dan als expressie geëvalueerd zal worden (en dat kan omdat er niets te evalueren valt binnen de haakjes). Bij meerdere parameters zal VBS proberen de (door komma geschijden) parameters te evalueren en als 1 door te geven; wat dus falikant mislukt omdat er komma's tussen staan en VBS niet weet hoe dat te evalueren. Als...ik...me...niet vergis

[ Voor 107% gewijzigd door RobIII op 27-12-2007 15:38 ]