Beiträge von Kermit

VB-Script ist dein Freund

- Script kopieren und in einer .VBS Datei abspeichern.
- die Variablen Root und Folder anpassen (im Beispiel 'C:' und 'Temp')
- doppelklicken.

viel Spass

set fs=CreateObject("scripting.filesystemobject")
set oXL=CreateObject("excel.application")


'------ist anzupassen------
root = "C:"
folder = "temp"
'--------------------------


x=1
main


sub main()
    oXL.Visible = True
    oxl.Workbooks.add
    oXL.Columns("A:A").Select
    oXL.Selection.ClearContents
    GetFileList root & "\" & folder
    GetFolderList root,folder
end sub


Sub GetFolderList(root,folderspec)
    Set f = fs.GetFolder(root & "\" & folderspec)
    Set sf = f.Files
    file_c = sf.count
    Set sf = f.SubFolders
    fldr_c = sf.count
       For Each f1 in sf
          GetFileList root & "\" & folderspec & "\" & f1.name
          GetFolderList root & "\" & folderspec, f1.name
       Next
End Sub


Sub GetFileList(folderspec)
    on error resume next
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
    x=x+1
    oXL.Cells(x, 1).Value = f1.name
    Next
    if err.number > 0 then 
       GetFileList(folderspec)
    end if
End Sub

Partition Magic funktioniert meiner Meinung nach nicht auf Server Versionen von Windows, dazu gibt es eine spezielle "Server Magic" Version, welche natürlich teurer ist. Ob das in 'aktuellen' Partition Magic Versionen immer noch so ist, weiss ich nicht.

was sicher funktioniert ist: der Disk Director von Acronis

Die brute-force Methode

'--------------------------------rechnen.vbs----------------------------

Dim SCHWEIN, HUHN, KUEKEN

SCHWEIN = 1
HUHN = 1
KUEKEN = 1

For SCHWEIN = 1 To 100
If (100 * SCHWEIN) + (30 * HUHN) + (5 * KUEKEN) = 1000 Then
If SCHWEIN + HUHN + KUEKEN = 100 Then
MsgBox "Schweine:" & SCHWEIN & " Hühner:" & HUHN & " Küken:" & KUEKEN
End If
End If
For HUHN = 1 To 100
If (100 * SCHWEIN) + (30 * HUHN) + (5 * KUEKEN) = 1000 Then
If SCHWEIN + HUHN + KUEKEN = 100 Then
MsgBox "Schweine:" & SCHWEIN & " Hühner:" & HUHN & " Küken:" & KUEKEN
End If
End If
For KUEKEN = 1 To 100
If (100 * SCHWEIN) + (30 * HUHN) + (5 * KUEKEN) = 1000 Then
If SCHWEIN + HUHN + KUEKEN = 100 Then
MsgBox "Schweine:" & SCHWEIN & " Hühner:" & HUHN & " Küken:" & KUEKEN
End If
End If
Next
Next
Next

Zitat

Original geschrieben von Netzwerkservice
...würde ich Ihn zur Rede stellen und einfach mal sagen, das es auffällt das er lange im Büro. Es ist auch mit dem Betriebsrat drüber reden, das Einzelfälle das Betriebsklima stören können.

Ich denke, es ist auf gar keinen Fall die Sache des Admins zu beurteilen wer wieviel Arbeitet oder sonst irgendwelche Überstunden schindet. Wenn ein Mitarbeiter zuviel Zeit im Internet verbringt ist das das Problem seines Chefs.

Nur halt blöd das man's als Admin sieht und als Chef nicht...

Hi

Sind die Dateien alle im selben Ordner? Kannst Du mal ein paar Beispiele posten?

Zitat

Original geschrieben von Stefan
Und das sinnloseste Threadbewertungsposting des Tages stammt von Stefan.

Wer hätte das gedacht...

Stefan

Alles anzeigen

Der Wissenschaftler heisst im Original: Dr. Bunsen Honeydew

Applaus Applaus Applaus...

hi,

probiers mal mit http://www.anim8or.com/

Tutorials gibt's auf der Seite

dies könnt es in etwa treffen:

bonjour
J'ai juste demandé Ebay pour le remboursement de la provision de vente.
Je ne vends pas aux clients qui habitent à l'etranger.

Hi,

eine andere Möglichkeit wäre unter
"Einstellungen -> Telefon -> Ausgangsanzeige"

die linke oder rechte Auswahltaste mit der Bluetooth Funktion zu belegen.

bei mir hat auch mal so ein Teil gebrannt, obwohl da "heavy duty" und "for industrial purpose" draufstand...

Durchzug hilft.