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, 5196 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
Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Router & Routing
Freie Routerwahl gilt auch für Bestandskunden

Link von transocean zum Thema Router & Routing ...

Digitiales Fernsehen
Freie Medienzentrale Kodi 16 ist fertig (3)

Link von magicteddy zum Thema Digitiales Fernsehen ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (24)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
Welches OS für Firmengeräte? (17)

Frage von MarkusVH zum Thema Windows 10 ...

Server-Hardware
Erfahrungswerte Hardwaresupport physikalische Server (14)

Frage von Devilx zum Thema Server-Hardware ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (14)

Frage von bogi1102 zum Thema Exchange Server ...