|
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 |
