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)

Frage Entwicklung VB for Applications

Mitglied: korn117

korn117 (Level 1) - Jetzt verbinden

31.08.2006, aktualisiert 13:30 Uhr, 13222 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
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 15 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 20 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 20 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Windows XP
Windows XP Aktivieren geht nicht
Frage von tetikmiroWindows XP13 Kommentare

Hallo Ich habe einen Windows XP mit einen vCenter Converter umgezogen auf eine ESXI. Soweit funktioniert dies auch ohne ...

Blogs
Immer wiederkehrende PHP Fehlermeldung bei Wordpress UTF-8 - ASCII
gelöst Frage von vcdweltBlogs11 Kommentare

Hi, seit einiger Zeit wird mein error_log meines Wordpress Blogs mit immer der gleichen Fehlermeldung überschwemmt. 14-Dec-2017 08:18:05 UTC ...

Switche und Hubs
Redundante L2 LWL Leitung über 2 Standorte - Spanning Tree - HP Equipment
gelöst Frage von ResolvSwitche und Hubs10 Kommentare

Hallo, ich stehe vor der Herausforderung eine Redundante L2 LWL Leitung über 2 Standorte herzustellen. Grundsätzliches Switching Know How ...