VBS / VBScript – Ordner von A-Z anlegen lassen

Falls jemand mal eine Ordnerstruktur von A bis Z braucht, um z.B. Dokumente zu sortieren und diese Ordner automatisch anlegen lassen will, dem kann mit diesem VBS-Script geholfen werden:

Option Explicit

Dim FSO, start, ende, asciiz

start = 65
ende = 90

Do While start <= ende
Set FSO = CreateObject(“Scripting.FileSystemObject”)
asciiz = Chr(CInt(start))
FSO.CreateFolder(asciiz)
start = start + 1
Loop

Gibts auch zum Download: ordnera-zanlegen.vbs

Kündigt alle Nichraucher! – Da möchte ich Arbeiten! Job frei?

Wie schreibt die SZ heute:

Ein Unternehmer hat sämtlichen Nichtraucher in seinem Betrieb gekündigt. Die Abstinenzler hätten den Betriebsfrieden gefährdet.

 und weiter: “Raucher sind bei uns nun mal die besseren Angestellten”.

 Dem kann ich nur beipflichten und wenn er einen besseren Angestellten (naja eher freier Mitarbeiter) sucht, dann kann er sich vertrauensvoll an mich wenden.

 Nach dem Rauchverbot, droht nun ja auch noch die Verteuerung der Lebensverkürzer 🙁

Danke an Kurt für den Hinweis zu diesem Artikel 🙂

Engel

Wer viel verloren hat,

der weiß wie viel es wert ist, etwas haben zu dürfen.

Wer viel Traurigkeit in den Augen hat,

der weiß wie viel ein Lächeln zählt.

Wer viel mit Füßen getreten wird,

der weiß, wie gut eine sanfte Berührung tut.

Wer viel erklären muss,

der freut sich, verstanden zu werden.

Wer viel in der Dunkelheit lebt,

liebt die Sonne.

Wer vermisst,

der weiß, was einem fehlt.

Und wer dann immer noch nicht an Engel glaubt,

der kennt DICH noch nicht.

(SH – 17.12.2007)