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
GELÖST

VBScript - Zuletzt geänderte Datei auswählen

Frage Entwicklung VB for Applications

Mitglied: downloader94

downloader94 (Level 1) - Jetzt verbinden

13.07.2009, aktualisiert 17:41 Uhr, 9293 Aufrufe, 3 Kommentare

Die zuletzt geänderte Datei mit einer Email versenden

Hallo,
ich will aus einem Ordner die zuletzt geänderte Datei mit einer Email versenden.
Den Code für die Email habe ich schon. Nun möchte ich, das das VBScript
die zuletzt geänderte Datei findet, damit ich sie an dieser Stelle aus Variable einsetzen kann:
01.
... 
02.
         objMessage.AddAttachment "Hier kommt die Variable hinein"
...
Ich habe auch schon im Internet gesucht unf folgendes gefunden:
http://www.administrator.de/index.php?content=110541
Das ist aber nur für Ordner. Ich habe auch schon versucht das Wort Folder durch File zu ersetzen, aber das ging auch nicht.
Falls mir jemand den Code umschreiben könnte, wäre ich ihm sehr dankbar.

LG downloader94
Mitglied: 76109
14.07.2009 um 14:20 Uhr
Hallo downloader94!

Probiers mal damit:
01.
Const Path = "F:\$Scripts\Test" 
02.
 
03.
Dim Fso As Object , File As Object, FileName As String, FileTime As Date 
04.
     
05.
Set Fso = CreateObject("Scripting.FileSystemObject") 
06.
  
07.
For Each File In Fso.GetFolder(Path).Files 
08.
    If FileTime < File.DateLastModified Then 
09.
        FileTime = File.DateLastModified 
10.
        FileName = File.Path   'Datei-Pfad 
11.
       'FileName = File.Name   'Datei-Name 
12.
    End If 
13.
Next 
14.
     
15.
MsgBox FileName & vbTab & " Letzte Änderung: " & FileTime 
16.
 
17.
'objMessage.AddAttachment FileName
Den Const-Path musst Du entsprechend anpassen und für Varable FileName kannst Du wählen, ob nur der Dateiname oder der komplette Pfad übergeben werden soll.

Mit der MsgBox kannst Du erst mal testen und danach die Codezeile entfernen.

Gruß Dieter
Bitte warten ..
Mitglied: downloader94
14.07.2009 um 22:30 Uhr
Danke Dieter.

Als ich den Code eingegeben hatte, da kam dann immer die Fehlermeldung 800A0401 bei dem Zeichen "As" (2.Zeile Zeichen 10). Da habe ich in der ganzen 2.Zeile die "As" weggemacht und dann ging es.
Hat das irgendwas zu bedeuten?


Ich hätte jetzt noch eine Frage:
Und zwar haben die Dateien, die in dem Ordner sind bestimmte Namen. Zuerst steht eine feste Nummer, dann ein Bindestrich und dann der Monat als 2 Zahlen und danach das Jahr als 2 Zahlen. Meine Frage wäre jetzt: Ist es auch möglich der festen Nummer einen Namen zuzuordnen (z.B. die Nummer 12345 hat den Namen Max) und den Monat als Wort und das Jahr mit 4 Zahlen (2009) als Nachicht auszugeben? Das soll nur nochmal zur Überprüfung sein, damit auch die Datei mit dem richtigen Monat genommen wird.
Danke im voraus.


Lg downloader94
Bitte warten ..
Mitglied: 76109
14.07.2009 um 23:08 Uhr
Hallo downloader94!

War nicht sicher ob Du jetzt VBA oder VB-Script verwendest. Habe es in der Überschrift übersehen

Für VB-Script diesen Code:
01.
Const Path = "F:\$Scripts\Test" 
02.
 
03.
Dim Fso, File, FileName, FileTime 
04.
     
05.
Set Fso = CreateObject("Scripting.FileSystemObject") 
06.
  
07.
FileTime = DateValue("01.01.1980") 
08.
 
09.
For Each File In Fso.GetFolder(Path).Files 
10.
    If FileTime < File.DateLastModified Then 
11.
        FileTime = File.DateLastModified 
12.
        FileName = File.Path   'Datei-Pfad 
13.
       'FileName = File.Name   'Datei-Name 
14.
    End If 
15.
Next 
16.
     
17.
MsgBox FileName & vbTab & " Letzte Änderung: " & FileTime 
18.
 
19.
'objMessage.AddAttachment FileName
Gruß Dieter

PS. Bei Deiner anderen Frage kann ich leider nicht ganz folgen. 12345 = Max??? Schreib mal präzise Beispiele vor- und nachher...
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Outlook 2010 - freigegebener Kalender Info "zuletzt geändert von"
Frage von Preacher0102Outlook & Mail1 Kommentar

Hallo Leute, ich habe es hier gerade mit einem kleinen Outlook Problem zu tun. Wir nutzen Exchange 2010. Die ...

Batch & Shell
In Batchdatei mehrere Dateien auswählen
gelöst Frage von DoppellhelixBatch & Shell7 Kommentare

Hallo, ich habe eine Batchdatei, die mir innerhalb einer Logdatei (txt), die Zeilen neu formatiert. Dieses Script funktioniert hervorragend. ...

VB for Applications
VBS Datei Auswahl Dialog
gelöst Frage von 133202VB for Applications5 Kommentare

Hallo Ihr, im Thread: konnte ich schon finden, was ich gesucht habe: Jetzt möchte ich allerdings, dass am Anfang ...

Entwicklung
Datei öffnen und auswählen
gelöst Frage von Questionmark93Entwicklung4 Kommentare

Hallo Community :) ich habe - mal wieder - ein Problem: Und zwar (via VBS) 1. ich möchte ein ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 8 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 15 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 16 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 19 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...