hallo,
ich habe einen string z (er kommt aus dem Dateinamen (file.name) - z.B. "werner"). Vor diese Zeichenfolge soll ein _ eingefügt werden - also "_werner".
Wie bekomme ich das hin?
Sub t()
Dim fs As Object
Dim MDfsp As Integer, spF As Integer
Dim z As String, b As String
Set fs = CreateObject("Scripting.FilesystemObject")
Set folder = fs.getfolder("D:\Daten\aktuell\Dropbox\mdisc\test")
For Each file In folder.Files
If Left(file.Name, 1) <> "#" Then
MDfsp = 2000
Do While MDfsp >= 0
spF = file.Size / (1048576)
If spF <= MDfsp Then
z = file.Name
b = z.Insert(1, "_")
MDfsp = MDfsp - spF
Loop
Else
End If
Next file
End Sub
Vielen Dank für die Hilfe...
Gruß, Jörg
|