Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

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, 4307 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 ...

Windows Netzwerk
Bginfo Home-Ordner und Roaming Profil Größe anzeigen (7)

Frage von Angelo131095 zum Thema Windows Netzwerk ...

Batch & Shell
Script, Groß- in Kleinschreibung für vordefinierte Ordner (7)

Frage von d4shoerncheN zum Thema Batch & Shell ...

Windows 10
gelöst Desktop-Ordner werden erst nach 30 Minuten geöffnet (7)

Frage von Thorit zum Thema Windows 10 ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (21)

Frage von jensgebken zum Thema Windows Server ...

Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Festplatten, SSD, Raid
gelöst Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (14)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...