Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

VB Nachricht am Desktop Ordner zu groß

Frage Entwicklung VB for Applications

Mitglied: retz12

retz12 (Level 1) - Jetzt verbinden

06.10.2008, aktualisiert 17:25 Uhr, 4301 Aufrufe, 3 Kommentare

Hallo,

Ich habe öfter das Problem, dass User Ihre Daten auf dem Desktop ablegen und sich dann auch immer beschweren, warum die Anmeldung am Netzwerk immer so langsam ist. Ist wohl klar, wenn zig MB auf dem Desktop liegen und diese immer neu vom Server(Windows 2003) geholt wrden müssen, dass es schon ne weile dauern kann.

Jetzt dachte ich mir, ich schreibe ein zusätzliches vb Script zum Anmeldescript, dass den User warnt, wenn die größe der Dateien am Desktop zu groß wird. (zb. ab 10 MB im Ordner C:/Dokumente und Einstellungen/%User%/Deskop überschreitet, dass eine Meldung kommt. Bitte Dateien vom Desktop auf das User Laufwerk verschieben.

Kann mir jemand helfen, wie ich dieses realisieren kann. Kenne mich noch nicht wirklich gut mit vb aus.

Danke
Mitglied: bastla
06.10.2008 um 16:14 Uhr
Hallo retz12!

Etwa so:
01.
set fso = CreateObject("Scripting.FileSystemObject") 
02.
set WshShell = WScript.CreateObject("WScript.Shell") 
03.
strDesktop = WshShell.SpecialFolders("Desktop") 
04.
lngSize = fso.GetFolder(strDesktop).Size 
05.
If lngSize > 10000000 Then 
06.
    WScript.Echo "Bitte Dateien vom Desktop auf das User Laufwerk verschieben." & vbCrLf & vbCrLf & _ 
07.
	    "Es werden bereits " & FormatNumber(lngSize,0,,,True) & " Bytes dafür benötigt!" 
08.
End If
Dass bei der Größenbestimmung auch alle Unterordner des Desktops mit erfasst werden, sollte im Sinn der Sache sein ...
Grüße
bastla
Bitte warten ..
Mitglied: retz12
06.10.2008 um 17:04 Uhr
Hallo Danke,
das ist ja rasch gegangen und funktioniert auch super.

Nur zur besseren übersicht, wie kann ich die ausgegebene Zahl in MB angeben lassen. Die meinsten verstehen ja nicht was Bytes sind.
Bitte warten ..
Mitglied: bastla
06.10.2008 um 17:25 Uhr
Hallo retz12!

In Bytes schaut's aber imposanter aus ...

Ansonsten:
01.
lngSize = fso.GetFolder(strDesktop).Size / 1024 / 1024
und den Rest anpassen.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Maximale Größe für empfangene Nachricht (5)

Frage von HeinrichM zum Thema Exchange Server ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

Windows Server
Windows Ordner sehr groß - Ist das normal? (6)

Frage von xchr1s zum Thema Windows Server ...

Exchange Server
Maximale Größe der "öffentlichen Ordner" in Ex2013 (2)

Frage von chris123 zum Thema Exchange Server ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (21)

Frage von NoHopeNoFear zum Thema LAN, WAN, Wireless ...

Webentwicklung
Aktuellen Mitarbeiter auf Homepage anzeigen (12)

Frage von alemanne21 zum Thema Webentwicklung ...