|
VBasic / vb.net / vbs / wsh : HILFE: User und Passwort zm Verschieben einer Datei mitgeben
bst am 13.11.2006 um 23:28 Uhr (0)
Abend auch,ich halte das für keine besonders gute Idee. Im besten Falle handelst Du Dir hier ein kleines Sicherheitsproblem ein ...Außerdem solltest Du vorab unbedingt mal abklären ob Du das in Eurer Firma denn überhaupt tun darfst !!Warum erteilst Du/Euer Admin den entsprechenden Usern nicht einfach die notwendigen Berechtigungen und alles ist gut ?Machbar ist sowas nun aber schon runas kennt ab XP Prof. den Parameter /savecred, google mal danach.runasspc http://www.robotronic.de/runasspc.html ist ansche ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic : QuickBasic
bst am 04.10.2004 um 21:55 Uhr (0)
Abend auch, wenn Dein Programm sein(e) Ergebnis(se) denn in die Standardausgabe schreibt, könntest Du auch eine einfache DOS-Batch-Datei benutzen: @echo off DeinProgrammAufruf ggf mit Parametern pause Der Pause-Befehl wartet nun auch ;-) CU , Bernd -- Ihr aber seht und sagt: Warum? Aber ich träume und sage: Warum nicht? (George Bernard Shaw, irischer Dramatiker, 1856-1950)
|
| In das Form VBasic wechseln |
|
VBasic : Dateien in 2 verschiedenen Ordnern suchen
bst am 29.11.2004 um 11:41 Uhr (0)
Hallo, nun, bin zwar noch nicht so viel schlauer, aber trotzdem ein neuer Versuch ;-) In "txtEingabe01" scheint der Pfad zu stehen, in "txtEingabe02" der Dateiname. Sowas geht NICHT: Select Case txtEingabe01.Text Case "V-" filDateiAuswahl.Path = _ "
nitfs02acadArchivVorrichtungenAllgemein" Hier mußt Du IMHO den Teil von mir einbauen, eben sowas: Select Case txtEingabe01.Text Case "V-" found = SucheDatei("
nitfs02acadArchivVorrichtungenAllgemein", txtEingabe02) If found = "" Then found = SucheDatei("
...
|
| In das Form VBasic wechseln |
|
VBasic : schreibgeschützte Datei löschen
bst am 25.07.2005 um 14:48 Uhr (0)
Hi Heiko, Eine derzeit benutzte Datei kannst Du nicht löschen. Mit dem Taskmanager von www.sysinternals.com soll sowas angeblich funktionieren, aber ob danach Dein System bzw. das des Dateibenutzers noch vernünftig weiterläuft ist zumindest zu Bezweifeln. Wenn Du den Dienst Taskplaner aktiv hast und über Admin-Rechte verfügst könntest Du noch sowas versuchen. Schreib Dir ein kleines Proggie welches: - die Datei löscht (bzw. versucht es zu löschen) - testet, ob s funktioniert hat - falls nicht sich via ...
|
| In das Form VBasic wechseln |
|
VBasic : schreibgeschützte Datei löschen
bst am 21.07.2005 um 11:00 Uhr (0)
Auch Hallo, Momentan nicht löschbare Dateien kannst Du ggf. zum Löschen/Umbenennen markieren und beim nächsten Systemstart löschen/umbenennen lassen. Siehe: c t 6/2005 bzw. http://www.heise.de/ct/ftp/05/06/252 http://www.microsoft.com/resources/documentation/Windows/2000/server/reskit/en-us/Default.asp?url=/resources/documentation/Windows/2000/server/reskit/en-us/regentry/58499.asp http://support.microsoft.com/kb/140570/en-us Oder - ungetestet - sowas: http://www.amok.am/index.php?page=progr&id ...
|
| In das Form VBasic wechseln |
|
VBasic / vb.net / vbs / wsh : Script ergänzung
bst am 12.09.2006 um 10:24 Uhr (0)
Morgen trainman,versuche das mal so.Erstellt das File nur, wenn ein passender Wert angegeben wurde.Und gibt eine Meldung aus, falls die Datei schon existiert.CU, Bernd-- Code:Option ExplicitDim Abfrage, MyV5_FileDim fso, fsoFile, wshellDim WSHShellDim strWertMyV5_File = "C:ProgrammeMyV5MyV5.txt"Set fso = CreateObject("Scripting.FileSystemObject")If fso.fileExists(MyV5_File) Then MsgBox "Datei " & MyV5_File & " existiert bereist!"Else Abfrage = InputBox("Bitte definieren sie den Standort" & Chr(13) & "Sta ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : Datei-Eigenschaften auslesen/ändern
bst am 11.06.2007 um 13:17 Uhr (0)
Auch Hallo,Wie bereits Ralf schrieb google mal nach dsofile.Achtung: Es gibt bei M$ 2 verschiedene Versionen davon.Gruß, Bernd-- Code:Option Explicit Mit dsofile V1.4Sub GetVersion() Dim objDSOReader As Object Dim objDSODocument As Object Set objDSOReader = CreateObject("DSOleFile.PropertyReader") Set objDSODocument = objDSOReader.GetDocumentProperties("E:Testpw.xls") MsgBox objDSODocument.Version Set objDSODocument = Nothing Set objDSOReader = NothingEnd Sub Mit dsofile V2.0Sub getVersion2() Dim objFi ...
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
VBasic / vb.net / vbs / wsh : ConvertFromUTF8 ... in VBA7
bst am 25.06.2013 um 19:24 Uhr (0)
Hi Klaus,probiere nochmals die Variante FromUTF8String von dort. Die hat bei mir funktioniert und benötigt keinerlei externe Routinen.Beachte dass ich dort Mid(s,4) benutzt hatte da ich davon ausging dass die ersten 3 Zeichen BOM - http://de.wikipedia.org/wiki/Byte_Order_Mark - sind und dass auch Debug.Print nur normale Zeichen darstellen kann.D.h. schreibe das Ergebnis mal besser in eine Excel-Zelle.Wenn das nicht geht poste mal im Anhang so eine UTF-8 Datei her.cu, Bernd
|
| In das Form VBasic / vb.net / vbs / wsh wechseln |
|
Excel : Bilder ausblenden/eiblenden per VB
bst am 19.09.2004 um 19:29 Uhr (0)
Abend Kai, ich würde die Bilder ein/ausblenden, nicht löschen/hinzufügen. Woran scheitert s denn beim Ein/Ausblenden ? Übrigens, ob das folgende auch mit xl97 funktioniert, weiß ich nicht. Ich habe hier nur noch xl2k. Obwohl xl2k eigentlich alle Grafikobjekte mittlerweile via Shapes anspricht, und Dinge wie Pictures als veraltet gelten erzeugt der Makrorekorder beim Einfügen-Grafik-Aus Datei nach wie vor dieses: ActiveSheet.Pictures.Insert dateiname Ansonsten kannst Du via Shapes darauf zugreifen: A ...
|
| In das Form Excel wechseln |
|
Excel : Textkonvertierungsassistent
bst am 10.12.2004 um 15:47 Uhr (0)
Auch Hallo, wenn die Textdatei immer gleich aussieht könntest Du es auch via Makro lösen. Versuch mal sowas wie unten. Zeichne Dir ggf. via Makrorekorder Deine Parameter auf und baue diese in das Makro ein. Interessant ist hier insbesondere FieldInfo. Je ein Array entspricht einer zu importierenden Spalte. Die 1. Zahl dort drinne ist die Spaltennummer, die 2. der zu importierende Datentyp. 2 = Text. HTH , Bernd -- Option Explicit Sub OpenLstDatei() Dim fname As Variant Dim fFilter As String ...
|
| In das Form Excel wechseln |
|
Excel : Makro mit Rückgängigfunktion
bst am 27.06.2005 um 12:53 Uhr (0)
Hallo Bernd, Nein. Speichere einfach vorher ab und lade nach den Änderungen die Datei ggf. neu. Oder mach s im VBA per Hand selber. Siehe: http://j-walk.com/ss/excel/tips/tip23.htm HTH, Bernd
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
bst am 28.06.2005 um 13:08 Uhr (0)
Hi Nancy, solange keine bösen Sonderzeichen drinne sind, ist s doch so bestens, oder etwa nicht ;-) CU , Bernd
|
| In das Form Excel wechseln |
|
Excel : Imprtieren von bestimmten Werten aus txt.Datei
bst am 17.07.2006 um 15:54 Uhr (0)
Hallo,Du sprichst von Spalten. Stehen die Daten in der Textdatei denn nebeneinander ? Wenn ja, welches Trennzeichen ?Oder stehen sie untereinander ?Dann versuche mal sowas.CU, Bernd-- Code:Option ExplicitConst StartPfad = "E:TEST" MIT am ENDE !Dim objRegExp As Object, objMatchCollection As ObjectFunction ReadValues(ByVal strFname As String, ByRef dblFlaeche As Double, ByRef dblDichte As Double) As Boolean Dim intHandle As Integer Dim strOneLine As String ReadValues = False intHandle = FreeFile Ope ...
|
| In das Form Excel wechseln |
