|
VBasic : FileSystemObject ...... nicht deklariert?!
Thomas Harmening am 09.11.2004 um 17:16 Uhr (0)
Zitat: Original erstellt von Feyza: ich möchte gerne eine Datei umbenennen. Wenn ich dieses Beispiel anwende, kommt bei mir die Meldung, das NewSystemObjekt nicht deklariert ist. DIM fso as new FileSystemObject If fso Is Nothing Then Set fso = New FileSystemObject fso.MoveFile c:Neu Textdatei.txt , c: empNeu Textdatei.txt auch wenn du es schon gelöst hast, das ist doch ein Verschieben und kein umbennenen, oder?
| | In das Form VBasic wechseln |
|
VBasic : Benutzerpasswort verwenden
Thomas Harmening am 20.11.2004 um 10:14 Uhr (0)
keine Ahnung wie es bei Win 2000 ist, Win Xp legt die Passwörter verschlüsselt in der SAM (Security Accounts Manager) als Prüfsumme ab. Diese Datei befindet sich im Ordner C:WINDOWSSYSTEM32CONFIG... Zusätzlich verhindert Windows ein Auslesen oder Kopieren der Dateien während einer aktiven Windowssitzung - Der Schwachpunkt ist dass die SAM leider auch im Arbeitsspeicher liegt... An das unverschlüsselte PW kommt man nur über Brute-Force-Attacke heran . - oder man kennt dem Algorithmus der Ver/Entschlüssel ...
| | In das Form VBasic wechseln |
|
VBasic : txt Datei ändern und speichern
Thomas Harmening am 13.12.2005 um 21:01 Uhr (0)
:-) Holzauge und wachsam :-)Code:Pos-zahlen.vbswandelt *.txt in pos-*.txt und ersetzt zahlen* in POS-zahlen*einfach per drag and drop - alt. send toOption Explicit Dim WSHShell, fso, FileIn, FileOutDim Datei, Zielver, Text, Txt, i, arrSort, arrTest(), oArgsSet WSHShell = WScript.CreateObject("WScript.Shell")Set fso = WScript.CreateObject("Scripting.FileSystemObject")set oArgs = Wscript.Arguments Falls ein Argument übergeben wurde, sollte es einen Dateinamen enthaltenFor i = 0 to oArgs.Count - 1 ho ...
| | In das Form VBasic wechseln |
|
VBasic / vb.net / vbs / wsh : zuletzt gespeichert von
Thomas Harmening am 27.08.2009 um 16:33 Uhr (0)
hilft das? habe es nur mit Excel-vba getestet.Code:Sub auslesen()Set fs = CreateObject("Scripting.FileSystemObject")Set f1 = fs.GetFile("x:CADdatacatiaopboxma01Dom_4_holi2.log")li = ""li = li & "Existiert Datei?: " & fs.fileexists(f1) & vbCrli = li & "Name: " & f1.Name & vbCrli = li & "Pfad mit Dateiname: " & f1.Path & vbCrli = li & "Dospfadname: " & f1.shortpath & vbCrli = li & "Dosname: " & f1.shortname & vbCrli = li & "Datei-Endung: " & fs.GetExtensionName(f1) & vbCrli = li & "Pfad: " & fs.GetParentFold ...
| | In das Form VBasic / vb.net / vbs / wsh wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
