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

VB - Dateien und Ordner kopieren - jedoch nur neuere daten

Frage Entwicklung Basic

Mitglied: 42908

42908 (Level 1)

20.08.2008, aktualisiert 21.08.2008, 9839 Aufrufe, 3 Kommentare

Hallo Leute,

ich bin dabei in VB ein kleines Programm zu schreiben, dass mir Dateien und Ordner vom Netz auf ein vorher ausgewähltes Laufwerk kopiert.
Das auswählen des Ziellaufwerks klappt auch ohne Probleme.
Nur würde ich den Kopiervorgang gerne so gestalten, dass er nur neuere Dateien kopiert. Wie z.B. bei xcopy mit dem Parameter "/d".
Ist dies auch mit Basic möglich? Das Programm soll erkennen, ob die Quell-dateien neuer oder älter sind als die Zieldateien, damit nicht unnötige Dateien kopiert werden.

Habe es bereits mit "Filecopy" und "My.Computer.FileSystem.CopyDirectory" versucht. Jedoch habe ich nichts über Parameter gefunden, die das Datum abgleichen.

Gruß,
Patrick
Mitglied: bastla
20.08.2008 um 17:08 Uhr
Hallo System#Schneider!

"My.Computer.FileSystem.CopyDirectory"
So bequem wird's wohl nicht gehen ...

Sieh Dir einmal die "My.Computer.FileSystem.GetFileInfo"-Methode an - damit kannst Du das Änderungsdatum ("FileSystemInfo.LastWriteTime"-Eigenschaft) der Quell- und Zieldatei auslesen.

In einer Schleife über alle Quelldateien kannst Du dann jeweils feststellen, ob die Zieldatei existiert bzw ob diese jünger ist - anderenfalls "My.Computer.FileSystem.CopyFile" mit Option "overwrite".

Grüße
bastla
Bitte warten ..
Mitglied: 42908
21.08.2008 um 08:17 Uhr
Guten Morgen,

danke erst mal für den Tipp.
Leider kann ich die "Filesysteminfo.lastwritetime" nicht wirklich finden. Wie genau muss ich den Befehl anwenden?

Zur Schleife:

Also ich habe in einem Ordner mehrere Unterordner mit Dateien und auch Dateien direkt im Root-Verzeichnis des Ordners. Nun möchte ich mittels checkboxen auswählen welche der Unterordner kopiert werden sollen. Ebenso sollen die Dateien, die direkt im Ordner liegen auch nach Datum abgeglichen werden und dann evtl kopiert werden.
Wie genau muss ich dazu die Schleife bauen?! Für Anregungen wäre ich dankbar...

Gruß,
Patrick
Bitte warten ..
Mitglied: bastla
21.08.2008 um 10:33 Uhr
Hallo System#Schneider!

Die Schleife (am Beispiel aller ".txt"-Dateien des Ordners "D:\Texte") sähe in VB2005 (welche Version verwendest Du eigentlich?) etwa so aus:
01.
Dim File As Object, AllFiles As String = "", DateModified As Date 
02.
For Each File In My.Computer.FileSystem.GetFiles("D:\Texte", FileIO.SearchOption.SearchTopLevelOnly, "*.txt") 
03.
    DateModified = My.Computer.FileSystem.GetFileInfo(File).LastWriteTime 
04.
    AllFiles = AllFiles & vbCrLf & DateModified & " " & File.ToString 
05.
Next 
06.
MsgBox(Mid(AllFiles, 3)) 'Erste Zeilenschaltung überspringen
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel VBA UserForm1 - Daten in neue Datei kopieren
gelöst Frage von abuelitoMicrosoft Office10 Kommentare

Hallo an Alle, ich habe wieder mal ein Problem mit meiner UserForm1. Ich habe eine UserForm1 und möchte über ...

VB for Applications
Datei automatisch in neuen Ordner kopieren bei Erstellung
Frage von Privex007VB for Applications2 Kommentare

Hallo zusammen, ich habe einen Ordner in dem mehrere Unterordner erstellt werden. Ist es möglich bei Erstellung eines neuen ...

Windows 10
Onedrive-Daten kopieren ohne neu zu synchronisieren?
gelöst Frage von 1410640014Windows 105 Kommentare

Hallo, folgende Situation: rund 60 Clients, ein Onedrive-Account mit 1 TB und viele wichtige Daten die etwa 440 GB ...

Batch & Shell
Dateien kopieren, rekursiv in einen Ordner
gelöst Frage von golsinBatch & Shell9 Kommentare

Hallo und noch ein Frohes neues Jahr ;-) Ich bin mal wieder etwas ratlos Ich Versuche von einem Rechner ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 2 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit7 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell8 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...