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, 7621 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Windows 7
gelöst Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen (2)

Frage von Ceejaay zum Thema Windows 7 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...