Hallo zusammen
ich brauche eure hilfe
und zwar möchte ich auf cirka 200 PC’s eine Datei kopieren. Es handelt sich hierbei um eine Fonts Datei.
Ich habe mir über den befehl net view eine Liste aller PC erstellt. Nun weiß ich von einem früheren Kollegen, das Excel dabei sehr hilfreich sein kann. Leider habe ich aber vergessen wie das ging
er hat über Excel einen Xcopy job laufen lassen
das sah dann ungefähr so aus:
xcopy dateiXY \Rechnername\c$\windows\fonts
kann mir jemand helfen wie das nochmal ging??
Vielen Dank
Hi Benjamin,
nachfolgender Code ist ungetestet(da nur einzelpc).
Gruß
Reinhard
Sub tt()
Datei = "Datname.fnt"
DateiPfad = "c:\temp\" & Datei
With Worksheets("Tabelle1")
For n = 1 To 200 'Rechnernamen stehen in A1:A200
ZielDateiPfad = "\\" & .Cells(n, 1).Value & "\c$\windows\fonts\" & Datei
Shell ("c\windows\xcopy.exe " & DateiPfad & " " & ZielDateiPfad)
Next n
End With
End Sub
ich brauche eure hilfe
und zwar möchte ich auf cirka 200 PC’s eine Datei kopieren. Es
handelt sich hierbei um eine Fonts Datei.
Ich habe mir über den befehl net view eine Liste aller PC
erstellt. Nun weiß ich von einem früheren Kollegen, das Excel
dabei sehr hilfreich sein kann. Leider habe ich aber vergessen
wie das ging
er hat über Excel einen Xcopy job laufen lassen
das sah dann ungefähr so aus:
xcopy dateiXY \Rechnername\c$\windows\fonts
kann mir jemand helfen wie das nochmal ging??
Vielen Dank