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

Freie Laufwerksbuchstaben ausgeben mit WSH

Frage Entwicklung VB for Applications

Mitglied: m0nstar

m0nstar (Level 1) - Jetzt verbinden

21.07.2009, aktualisiert 11:49 Uhr, 5189 Aufrufe, 3 Kommentare

Hallo,

ich habe einen Code um mir alle bereits aktiven Laufwerksbuchstaben auszugeben.

01.
	set fs = Createobject("Scripting.filesystemobject") 
02.
	leer = "  " 
03.
	set drives = fs.drives 
04.
		for each drive in drives 
05.
		list = list & drive & leer 
06.
	next
Ich habe dann in einer Inputbox, via String die aktiven Laufwerksbuchstaben eingebaut, dass klappt auch alles diese werden mir auch angezeigt, aber wie kann ich denn jetzt noch überprüfen welche noch frei sind ( D:, E:, F:, ...) und diese mir Anzeigen lassen.

Also es sollen mir einmal die aktiven angezeigt werden und einmal die freien angezeigt werden, die aktiven habe ich ja wie gesagt bereits schon

Vllt kannt mir ja einer von euch weiterhelfen.

Gruß,
m0nstar
Mitglied: bastla
21.07.2009 um 11:58 Uhr
Hallo m0nstar!

Etwa so:
01.
set fs = Createobject("Scripting.filesystemobject") 
02.
frei = "D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z: " 
03.
leer = " " 
04.
set drives = fs.drives 
05.
for each drive in drives 
06.
    list = list & drive & leer 
07.
    frei = replace(frei, drive & leer, "") 
08.
next
Grüße
bastla
Bitte warten ..
Mitglied: m0nstar
21.07.2009 um 12:04 Uhr
klasse, so in der art dacht ich mir das selber, wusste aber net wie ich es umsetzten soll....vielen dank nochmal!

Gruß
m0nstar
Bitte warten ..
Mitglied: m0nstar
21.07.2009 um 14:50 Uhr
das programm klappt nun hiermit tadellos... thx
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch ausgabe zeilenweise stat spaltenweise ausgeben (4)

Frage von sugram zum Thema Batch & Shell ...

Windows Userverwaltung
gelöst Festdefinierte Laufwerksbuchstaben von Windows nicht blockieren (4)

Frage von M.Marz zum Thema Windows Userverwaltung ...

Batch & Shell
gelöst Mit Batchdatei Informationen auslesen und diese strukturiert in Excel ausgeben (9)

Frage von Flodsche zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...