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, 4297 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
Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (17)

Frage von Zockervogel zum Thema Router & Routing ...

Basic
Programmierung von Windows Programmen (8)

Frage von Ghost108 zum Thema Basic ...

Windows Userverwaltung
Gleiches Benutzerprofil für Anmeldung an TS und am lokalen System?? (6)

Frage von eastfrisian zum Thema Windows Userverwaltung ...