Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBScript Dateiattribute ändern (Datei kopieren)

Mitglied: korn117

korn117 (Level 1) - Jetzt verbinden

31.08.2006, aktualisiert 13:30 Uhr, 13381 Aufrufe, 2 Kommentare

Hallo *,


ich habe eine Frage zu einem VBScript.

Ich wollte eine/tausende Datei(en) kopieren und deren Attribute sollen je nach Parameter erhalten oder nicht erhalten bleiben.

Zu meiner Frage, ich lese in meinem Script die Dateiattribute aus (Nur Lesen, Versteckt, System, ...) und speichere in variablen - soweit so gut.

Wenn ich aber die Datei mittels

MyFSO_New.CopyFile filefrom, fileto

kopiere und anschließend die dateiatt. der neuen datei gleich der alten setzen will stoße ich auf das problem, dass das nicht funktioniert.

Hat das jemand von euch schoneinmal gemacht?


Ich benutze das FSO und folgende Zeile zum auslesen eines Attributes

If MyFSO.GetFile(file).Attributes AND 2 Then
hidden = true
End If


Zum setzen wollte ich folgendes verwenden, aber da ist der Fehler "er" setzt mir die attribute nicht:

If hidden then
MyFSO.GetFile(file).Attributes = MyFSO.GetFile(file).Attributes AND 2
Else
MyFSO.GetFile(file).Attributes = MyFSO.GetFile(file).Attributes OR 2
End If


Kann mir jemand helfen?

Vielen Dank!!

Gruß Korn

p.s.: ich möchte nicht so gerne attrib.exe benutzen
Mitglied: Biber
31.08.2006 um 11:03 Uhr
Moin Korn117,

mach es ein bisschen lesbarer.
01.
' CopyWithAttr.vbs [ungetestete Skizze] 
02.
CONST F_ATTR_HIDDEN = 2 
03.
CONST F_ATTR_STANDARD = 32     ' Normal ist nur Attribut Archiv 
04.
Set MyFSO = CreateObject("Scripting.FileSystemObject") 
05.
'File="x:\\testhidden.txt" 
06.
set oFS=MyFSO.GetFile(file)     ' obj File Source 
07.
If oFS.Attributes AND F_ATTR_HIDDEN Then 
08.
  wscript.echo  "   hidden = true " 
09.
   hidden = true 
10.
End If 
11.
oFS.Copy("Y:\\testhiddenClone.txt") 
12.
Set oFT =MyFSO.GetFile("Y:\\testhiddenClone.txt")     ' obj File Target 
13.
 
14.
If hidden then 
15.
  oFT.Attributes = F_ATTR_STANDARD + F_ATTR_HIDDEN 
16.
 ' oder simpler: oFT.Attributes = oFS.Attributes 
17.
Else 
18.
  oFT.Attributes = F_ATTR_STANDARD 
19.
End If
HTH Biber
Bitte warten ..
Mitglied: korn117
31.08.2006 um 13:30 Uhr
Vielen Dank!

Werds gleich mal ausprobieren!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

VBScript - Kopiere lokale Datei auf mehrere Netzwerkpfade

gelöst Frage von chasperlisimba1Batch & Shell6 Kommentare

Hallo liebe Gemeinde Ich versuche folgendes per VBScript zu lösen. Eine Datei soll auf 6 verschiedene Server kopiert werden ...

Batch & Shell

Text Datei öffnen. Wert ändern . in anderen Ordner kopieren

gelöst Frage von dax4funBatch & Shell5 Kommentare

Hallo hoffe es ist noch wer da und nicht alle im Urlaub :) Habe einen Ordner wo hin und ...

Microsoft

Dateien kopieren

gelöst Frage von alex53842Microsoft2 Kommentare

Hallo zusammen, wir haben hier ein sehr tolles Phänomen. Eines unserer Dokumentenarchive hat einen kleinen Fehler. Es wurde eingerichtet ...

Batch & Shell

XML-Datei: Pfade suchen, verlinkte Dateien kopieren und Pfade ändern

gelöst Frage von ELEVATORBatch & Shell4 Kommentare

Hallo, das Programm "Solidworks Composer" speichert Pfadangaben verlinkter Dateien in Projektdateien. Ich möchte nun diese Projektdateien inklusive aller verlinkten ...

Neue Wissensbeiträge
Backup

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 2 TagenBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 4 TagenHumor (lol)10 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 4 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 5 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte
E-Mail
Deutsche e-Mail Adresse auf iPhone in Katar. Nur Probleme
gelöst Frage von vanTastE-Mail32 Kommentare

Moin, ich habe hier in Deutschland auf einem Exchange 2013 eine e-Mail Adresse (name@domain.de) für einen Kollegen in Katar ...

Windows Server
Server verliert Dateien und Ordner
gelöst Frage von routeserverWindows Server21 Kommentare

Hallo Freunde, ich habe hier ein Problem, das mich an meine Grenzen treibt und ich würde gerne wissen, ob ...

Windows Server
Domäne beitreten nicht möglich, unter VMWare windows Server 2016 Core
Frage von AmanuelWindows Server21 Kommentare

Ich habe auf meinem Mac unter VMWare Windows Server 2016 Core und Windows Server 2016 Desktopversion installiert. Beide Systeme ...

Windows Tools
User Self Service und Client Management
Frage von OrkansonWindows Tools14 Kommentare

Hallo zusammen, ich hab ein paar verschiedene Fragen: 1. Was benutzt ihr um Software im Unternehmen zu verteilen? 2. ...