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

vbs subfolder.files

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

02.08.2008, aktualisiert 22:57 Uhr, 7625 Aufrufe, 2 Kommentare

Hallo, kann mir bitte Jemand dabei Helfen.
01.
Option Explicit 
02.
Function Main 
03.
Dim FSO, DATEI, ORDNER 
04.
Set FSO=CreateObject("Scripting.FileSystemObject") 
05.
Set ORDNER=FSO.GetFolder("C:\New").Subfolders 
06.
 
07.
For Each DATEI in ORDNER.Files 
08.
DATEI.Name=DATEI.Size & DATEI.Name & "." & FSO.GetExtensionName(DATEI) 
09.
Next 
10.
 
11.
End Function 
12.
Main
Ich versuche die Dateien der Unterordner umzubenennen.
Habe schon sehr viel versucht aber ich weiß nun endgültig nicht weiter.

Gruß waldgnarf
Mitglied: bastla
02.08.2008 um 21:40 Uhr
Hallo waldgnarf!

Meintest Du das so:
01.
Option Explicit 
02.
Function Main 
03.
Dim FSO, DATEI, ORDNER 
04.
Set FSO=CreateObject("Scripting.FileSystemObject") 
05.
For Each ORDNER In FSO.GetFolder("C:\New").Subfolders 
06.
    For Each DATEI in ORDNER.Files 
07.
        DATEI.Name=DATEI.Size & DATEI.Name '& "." & FSO.GetExtensionName(DATEI) 
08.
    Next 
09.
Next 
10.
End Function 
11.
Main
Falls Du tatsächlich die Extension doppelt benötigen solltest, kannst Du das Apostroph in Zeile 7 wieder entfernen, wenn nicht, dann ab dem Apostroph den Rest der Zeile entsorgen.

Grüße
bastla

P.S.: Wozu eigentlich die "Function"? Falls überhaupt, würde ich ein "Sub" verwenden, aber eher einfach die Zeilen 2, 10 und 11 ersatzlos streichen ...
Bitte warten ..
Mitglied: waldgnarf
02.08.2008 um 22:57 Uhr
Genau das was ich brauchte, herzlichen lieben Dank =).
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Windows 10
Vbs getobject auf per Task gestartete Anwendung (4)

Frage von schauan zum Thema Windows 10 ...

Ubuntu
gelöst Nextcloud Snap 11.01 Ubuntu Server 16.04 files antivirus keine Funktion (1)

Frage von horstvogel zum Thema Ubuntu ...

Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (20)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (19)

Frage von oel-auge zum Thema Router & Routing ...

Windows Userverwaltung
Windows Freigabe: Zugriff auf alle Ordner trotz Sicherheitseinstellungen (17)

Frage von Pandreas zum Thema Windows Userverwaltung ...

TK-Netze & Geräte
gelöst Convert von TAPI auf CAPI gesucht (13)

Frage von StefanKittel zum Thema TK-Netze & Geräte ...