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, 5195 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
Ähnliche Inhalte
Digitiales Fernsehen
Freie Medienzentrale Kodi 16 ist fertig (3)

Link von magicteddy zum Thema Digitiales Fernsehen ...

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

Frage von sugram zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...